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5 APUCACOiS 5 



^EUNA SEUS DADO 
'RAFICOS 




COMO FUNCIONA PROGRAMA 



ENTRADA DAS INFORMACOES 



CORRECOES 



ELABORACAO DOS GRAFtCOS 



ARMAZENAGEM DOS DADOS 



Digite os numeros e deixe o micro 
converte-los em histogramas coloridos 
e bem-feitos. Por meio deles, serei 
facil comparar valores diversos ou 
verificaf suas tendencias temporals. 



Voce ja deve ler visto alguns aniin- 
cios de programas para ap!icat;6es co- 
merciais, nos quais se destaca a elabo- 
ragao de graficos sobre estatisticas de 
vendas. evolu^ao de cota(,ao das afoes 



na Botsa, etc. Esse tipo de informa^ao, 
que em geral envoive uma quantidade 
enorme de numeros, torna-se de facil 
compreensao quando representado por 
diagramas ou graficos, E se preparar um 
grafico manualmente e trabalhoso, pa- 
ra um computador comercial £rata-se de 
larefa simples e r^pida. 

A capacidade de representar informa- 
96es nao e, entreianto, aiributo exclu- 
sjvo dos computadorcs comerciais. Ela 
esiende-se, tambem, aos computadores 
domesticos. consiiiuiiido-se em uma de 
suas areas de apUcagSo pratica. Todos 



OS computadores apresentados aqui pos- 
suem capacidade numerica e graftca que 
OS liabilita a efetuar esse tipo de traba- 
Iho, com graus variaveis de precisao e 
dc detalhamento grafico. 

Dificilmente o usuario medio de com- 
putadores domesticos precisari lidar 
com a vasta quantidade de informacoes 
geradas, por exemplo, por uma peque- 
na empresa. Mas numerosas quesloes 
que ihe interessam diretamente podem 
ser analisadas de maneira proveitosa em 
um microcomputador, Por exemplo, a 
relagao entre seus rendimentoii e gastos 
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ao longo dc um ano; o peso especifico, 
em periodos distintos, dos diversos itens 
que com poem seu ors^amento; as varia- 
goes mensais de sua capactdade de 
poupanga. 

Alem dessas Areas, cujas aplica^'oes 
se assemelham as comerciais, exisiem 
varias outras, sobrctudo relacionadas 
com aigum tipo de passatempo, que po- 
dem ter seus dados analisado.s e repre- 
sentados graficamente: a freqiigncia ao 
clube local ou a espetaculos teatrais em 
determinado pen'odo, a evoluvaodo ni'i- 
mero de itens em coIe(,'Oes de livros, dis- 
cos ou selos e estatisiicas de result ados 
esportivos. 

O programa apresentado sltvc para 
preparar, rapidamente. um grSfico de 
barras — ou histograma —. mostrando 
as variagoes temporais de algiitn tipo de 
valor. Como os eixos do gratico (hori- 
?.onta! e vertical) ajustam-sc automati- 
camente, pode-se trabalhar com dados 
semanais, mensais, aniiais oti t3|j^qual- 
quer outra uiiidade de tempo. tit' 

O imervalo niciximo de valores utili- 
zado pelo programa dependL- do seu 
computador. Para o TRS-ColOfs esses 
valores situam-se entrc + 99 e ^^. Pa- 
ra o Spectrum, entre + 1000 n - 1000. 
mais ou menos, Ja para o Apple e o 
MSX, tais valores podem ter qualquer 
amplitude — unidades, dezenas, cente- 
nas. milhares e are milhoes, se ^ apli- 
cacao assim requerer. 
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EftlTRADA DOS DADOS 
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Ao ex ecu tar o programa, este apre- 
sentara na tela uma lista das opcOes dis- 
poniveis (o menu). Se for solecionada a 
opcao para a entrada dc dados, o pro- 
grama pedira os iiiulos dos dois; eixos, 
apresentando-os no momeiito «ni que 
tra(;ar o grafico. 

Ao entrar com os titulos dos eixos, 
tenha sempre o cuidado de cHgftd-!os 
corrctamenle e na ordem pediJa.. O ei- 
xo horizontal (X) representa o tempo: 
semanas, meses, anos ou qualquer ou- 
tra unidade escolhida. O eixo vertical 
(Y) representa os valores dados hs, bar- 
ras — cruzados, temperatura, niimero 
de discos, etc. A altura de cada uma das 
barras sera proporcional a esie valor. 

Em seguida, o programa pede o nii- 
mero de barras que deve apresentar. O 
numero maximo possivet depende, ba- 
sicamente, da capactdade grafica do seu 
computador, O Speclrum, por exeinplo, 
apresenta no miximo 25 harras; no 
TRS-Color, esie numero passa a 26; o 
Apple e MSX lem capacidade para 




apresentar ate 200 barras, mas seu limi- 
te pratico e de cerca dc 65. Acima deste 
valor, as barras ficam muito finas ou ir- 
regulares, constituindo um quadro vi- 
sualmente pouco claro. 

As perguntas seguimes feitas pelo 
programa referem-se aos valores dos da- 
dos. Sao apreseniados na tela os nume- 
ros seqiienciais das barras e uma pergun- 
ta sobre o valor a ser atribuido a cada 
uma. Esse valor, positive ou negativo, 
i, novamente, Umitado pe!a capacida- 
de numerica do .seu computador. No 
TRS-Color, OS valores vao de — 999 a 
+ 999 e, no Spectrum, de - 1000 a 
+ 1000. O Apple e o MXS, por sua vez, 
trabalham com valores de qualquer 
magnitude, ja que os graficos sao raon- 
tados com o uso de e sea las. 

Seseu computador ^ um Spectrum ou 
um TRS-Color, e voce deseja represen- 
tar valores que estao fora da capacida- 



de do programa, a solupao e fornecer os 
dado.s divididos ou inultlplicados por ai- 
gum fator de conversao (por exemplo, 
em unidades decentenas. milhares, mi- 
lhoes, etc.). 

Quando o tjltimo valor for introduzi- 
do, surgira novamente a lista inicial de 
opcoes. Voce podera, entao, escolher en- 
tre tuodificar algum valor digitado ou 
parti r para a apreseniafjao do grafico, Se 
optar pela modificaf ao, os valores que di- 
gitou scrao apresentados na tela. Siga as 
instruijoes para corrigir ovalor desejado. 

Quando esiiver satisfcito com os va- 
lores, selecione a optjao que permite a 
apresentai;ao do grafico. Os usuarios do 
Apple e do MSX possuem apenas uma 
maneira de apresentar seus graficos. 
Usuarios do TRS-Color e do Sinclair 
Spectrum podem escolher entre um gra- 
fico em escala e um grafico em repre- 
sentafao real. 



t 
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sao armazenados nas variaveis LO e HI. 
respectivamente. O valor niinimo prede- 
(liiido e sempre zero; se os dados apre- 
sentarem urn valor mi'nimo maior, este 
sera ignorado pcio programa. O valor 
maximo e arredondado: 10, 100, 1000, 
10 000. etc. 

Havendo dados negatives no conj un- 
to A (valor minimo menor que zero), o 
programa definir^ que o grafico e de ti- 
po 1 ; senao, de tipo 2. Nos graficos de 
lipo 1 , a linha de base (eixo dos x) fica- 
ra acitna do t'undo da tela, e as barras 
correspondentes aos valores negatives 
serao dirigidas para baixo. 

O esi;alamento dos valores de urn ei- 
xo i feito segundo uma regra simples, 
que leva em eonta os valores minimo e 
maximo, o ntJmero de pixels (pontes 
graHcos) que cabem no eixo e o arrcdon- 
damcnio ou nao dos rotulos ao longo do 
eixo, A formula de esealamento e: 



A opcao de um grdfico escalonado 
apresenta o diagrama de barras com as 
dimensoes, ao longo do eixo y, arredon- 
dadas para um valor maximo de 10, 100, 
1000, etc., dependendo do valor mdxi- 
mo dos dados. Con forme este valor, po- 
rem, o grafico pode nao aparecer iniei- 
ramente na tela. 

A op(;ao de um grafico em represen- 
taijao real raostra o diagrama de barras 
ocupando a tela inieira, apresentando os 
valores reals dos dados (nao os valores 
cm escala) ao longo do eixo y. 

Para maior clareza, as barras apre- 
sentadas pelo Apple, pelo MSX e pelo 
Spectrum sao separadas umas das ou- 
tras por um pequeno espa^o ou uma 
barra colorida. O TRS-Color apresenta 
as barras coloridas aitemadamenie de 
cin/a c amarelo, para os valore"! positi- 
\os, e de vermelho e laranja, para os va- 
lores negativos. 



COMO FUMCIONA PROGRAMA 



O programa de elabora^ao de histo- 
gramas tern tres rotinas principals: 

• entrada dos dados que serao e.xibidos 
no grafico; 

• edifao (modificafao) dos dados ji en- 
trados; 

• elabora^ao do grifico. 

04 dados sao armazenados no con- 
junto A pcla primeira rotina. A capaci- 
dade desse conjunio e especificada di- 
namicameote pelo comando DIM. apos 
o usuario indicar o ni'imero de dados que 
descjii ulilizar. Quandoo programa en- 
tra na rotina de eiabora^ao do grafico, 
cnnjunto de dados i* cxaminado, para 
que se identifiquem os valores minimo 
e maximo nele pre.sentes. Esses valores 



X - xmin 



xmax 



xram 



pix 



onde: 



x' = valor escalado 
X = valor original 
xmin = valor minimo na escala 
xma,x = valor maximo na escala 
pix = numero maximo de pixels no 
eixo 

Em seguida, o grafico 6 elaborado. 
Cada compuiador utiliza um metodo 
disiinto para iragar as barras. Se voce 
conheccr Ltm pouco de programagao 
BASIC, podera, nesse ponto, alterar o 
programa para fazer coisas diferentes. 

Por exemplo. a versao para o Sinclair 
Spectrum utiliza o comando PLOT pa- 
ra posicionar o cursor grafico no ponto 
onde a barra vertical sera trafada, e o 
comando DRAW, para trat-a-la de uma 
vez. Se voce substituir o comando 
DRAW por Um outro PLOT, obtera 
apenas um ponto colorido. correspon- 
dcnte ao lopo da barra. 

Outra modificai,'ao se refers a defini- 
gao das cores. No Sinclair Spectrum, 
por exemplo, o comando INK determi- 
na a cor a ser usada na barra. Note que 
a varidvel que se segue a este comando 
e modincada automaticamentepelo pro- 
grama, de modo a alterar a cor da b^- 
'i'a seguinte. Por meio de um comamio 
INpCt, voce pode mudar o programa, 
determinando que a cor seja solicitada 
ao usuario. 

Interessante tambem e a possibilida- 
de de modi Hear o programa para arma- 
rcnar o=; dados entrados, em fita casse- 
tc ou disquete. Nesse caso, menu ini- 
cial deverd ter duas op?6es adicionais: 




MSX: grafko da varia^ao de lemperalura ao longu du a no. 



ZX Speclrum: grafico d« lucros e perda:> por mes 



amnazenar dados 

gravar dados 



I 



As rotinas correspondentes a estas 
chamadas deverao ser programadas e 
adicionadas ao programa. Assim, voce 
podera manter series de dados armaze- 
nados (por exemplo, os rendimentos da 
caderneta de poupan(;a ou os gastos 
mensais com alimenta?ao) e amaliza-los 
com novos valores seinpre que quiser 
compara-los ou verificar sua icndencia 
por meio do grafico. Com csta modifi- 
ca^ao, voce nao precisara, portanto, di- 
gitar OS dados anteriores toda vez que 
executar urn programa para elaborai;ao 
de grafico. 

El 

10 PMODE 4.1 

20 CLS 

30 PHINT 645, 'MENU" :PRIN'r~fl02, 

"1- INTRODUZIH DADOS" : PRINT 816 

6, "2- GRAFICO DE BARRAS" : PRINT 

#230, "3- VER/CORRIGIR DADOS": PR 

INT §294, '4- SAIH DO PROGRAMA" 

40 A$-IMKE5fS:IF A$<''1" OR A$>"4 

' THEN 40 

50 IF AS'"1* AND DA-1 THEN 80 

60 ON VAL(AS) GOSUB 1000,2000,3 

000,4000 

70 GOTO 20 

80 PRINT §484, "VOCE TEM CERTEZA 

? " ; 

90 AS-INKEYS:IF A$<>"Y" AND A$< 

>'N" THEN 90 

100 IF AS-'lf" THEN CLEAR 200 :AS 

-"1":G0T0 60 

110 GOTO 20 

1000 DA-1: CLS: INPUT-NOME DO EIX 

X' lYS 

1010 XS=LEFT$<XS.32} :IF XS-"' T 

HEN XS="EIXO X' H 



1020 MD-INr(16-LEN(XS)/2) 

10 30 INPUT"NOME DO EIXO yjYS 

1040 i'$'=LEFT$(V$.12) :IF YS-"' T 

HEN YS-"EIXO Y" 

1050 HT-INT(6-LEN{Y$)/2) 

1060 rNPUT"NUMERO DE BARRAS" ;NB 

1070 NB-INT(NB) :IF NB<1 THEN 10 

60 

1080 BL-INT(26/MB) :IF BL<1 THEN 

BL-1 
1090 DIM ACNE) 
1100 PRINT 
lliO FOB K-1 TO NB 
1120 PRINT'UALOR DA BARRA';Ki:I 
NPUT A(K) 
1130 NEXT 
1140 RETURN 

2000 IF DA-O THEN PRINT €455. "D 
ADOS NAO INTR0DUZIDOS-:F0H K-1 
TO 2 000: NEXT: RETURN 
2010 TP-0:BT-0 

2020 FOR K-1 TO NB 

2030 IF A(K>>TP THEN TP-A(K) 

2040 IF A(K)<BT THEN BT-A(K) 

2050 NEXT 

2060 IF TP-0 AND BT-0 THEN PRIN 

T "TODOS 03 VALORES SAO ZERO " : 

FOR K-1 TO 2000: NEXT: RETURN 

2070 CLS; PRINT §64, "VOCE OUER U 

M GRAFICO EM ESCALA (S/N)?" 

2080 AS-1NKEY5;IF AS<>"S" AND A 

SO'N" THEN 2080 

2090 IF AS-"N" THEN 2120 

2100 IF TP>0 THEN E-INT (LOG (TP) 

/LOO (10) ) ;TP-INTC1+TP/C10-E))*1 

0*E 

2110 IF BT<0 THEN E-INT (LOG C-BT 

) /LOG (10)] :BT— INT(1-BT/(10'E)) 

*10"E 

2120 IN-178/(TP-BT) 

2130 ST"INT(IN*TP) 

2140 TS-"":IF TP-0 THEN 2160 

2150 IF TP>ABS(BT) THEN E-2*INT 

fLOG(TP>/L0G(1000)) ELSE E-2*IN 

T{LOG (ABS(BT)) /LOO f 1000)) 

2160 TS-"+"+MlDS(STH$(INT(.5+TP 

/10-E}) ,2} :B$-"':IF BT-0 THEN 2 



180 

2170 BS-STR$aNT(.5+BT/10'E) ) 

2180 SL-1:LP''NB:IF NB>26 THEN L 

P-26 

2190 POKE 179. 243: POLS: POKE 654 

75.0:POKE 65477, OrPOKE 65479,0 

2200 POKE 179,2 

2210 LINE (40.0)- (47,191) , PRESET 

,BF 

2220 IF TS-"" THEN 2260 

2230 FOR K-1 TO LEN (TS) : P-ASC {M 

ID$(T$,K,1>) AND 63: FOR M-0 TO 

II 

2240 POKE 1540-LEN(T$)+32*M+K,P 

225 NEXT M,K 

2260 IF BS--- THEN 2300 

2270 FOR K-1 TO LEN (BS) : P-ASC (M 

rD$<BS,K,l))AND 63:F0R M-0 TO 1 

1 

2280 POKE 6916-LEN(BS)+M*32+K,P 

2290 NEXT M,K 

2300 FOR K-1 TO LEN(X$) 

2310 P-ASC {MIDS (XS, K, 1) ) AND 63 

2320 FOR M-182 TO 190: POKE 1503 

+MD+3 2*M+K,P:NEXT 

2330 NEXT 

2340 FOR K-1 TO LEN(YS) 

2350 FOR M-0 TO 11 

2360 P-ASC (MIDS (YS.K,!)) AND 63 

2370 POKE 1568+384* (K+HT)+32«M, 

P 

2360 NEXT M,K 

2390 FOR K-5 TO 31 

2400 POKE 1536+32«ST+K.12e 

2410 NEXT 

2420 FOR K-ST TO STEP -22 

2430 POKE 1541+K*32,202 

2440 NEXT 

2450 FOR K-ST TO 178 STEP 22 

2460 POKE 1541+K*32.202 

2470 NEXT 

2480 FOR K-SL TO LP:C0-(C0+1) A 

ND 1 

2490 POKE 178,35+00*64: POKE 179 

,3+CO*192 

2500 IF INT(A<K) *IN)>0 THEN LIN 

E(48+e* (K-SL) *BL,ST-l)-(47+8*(K 
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TBS-Color: grafico da dislribuitao das ntitas tm uma classe. 



Apple: grafico dos saldos mensais da poupan^a. 



-SL+1)*BL.ST-INT(A{K)*IN)) , PSET 

• BF 

2510 IF FIX{A(K)*IN)<0 THEN LIN 

E(48+8*(K-SL) "BLpST)- (47+8* (K-S 

L+1)*BL,ST-FIX{A(K>*IN)) .PRESET 

.BF 

2520 NEXT K 

2530 IF LP-NB THEM 2570 

2540 SL"LP+1:LP-LP+26:IF LP>NB 

THEN LP-NB 

2550 IF INKEyS-"' THEN 2550 

2560 POKE 179.243:LlNEC48.0)-(2 

55,178) .PRESET, BF:GOTO 2390 

Z570 IF INKEYS-"' THEN 2570 

2580 RETURN 

3000 IF DA-0 THEN PRINT €455, "D 

ADOS NAO INTRODUZIDOS":FOR K-1 

TO 2000: NEXT r RETURN 

3010 SL-1:LP-NB:IF NB>14 THEN I 

P-14 

3020 CLS:PRINT"BAHaA" , "VALOR" 

3030 FOR K-SL TO LP 

3040 PRINT K.A(K) 

3050 NEXT 

3060 IF NB-LP THEN 3130 
3070 PRINT §480. "e PARA EDITAR, 
QUALQUER OUTBA PARA CONTINUA 

H": 

3080 A5-1NKEY$:IF AS-"" THEN 30 

80 

3090 IF AS-"E" THEN 3170 

3100 SL-LP+1:LP-LP+14 

3110 IF LP>NB THEN LP=NB 

3120 GOTO 3020 

3130 PRINT e4e0,''e PARA EDITAR, 
QUALQUER OUTRA PARA HETORNAR 

3140 A$-INKEYS:1F AS="" THEN 31 

40 

3150 IF AS-'E" THEN 3170 

3160 RETURN 

3170 CLS: PRINT :INPUT"NUMERO DA 

ENTHADA A SEH EDITADA ?";E 

3180 E»INT<E3:IF E<1 OR E>NB TH 

EN 3170 

3190 PRINT: PRINT"NOyO VALOR DA 

ENTRADA" ; E ;: INPUT ACE) 



J200 GOTO 3020 

4000 CLS;PRINT §37, "VOCE TEM CE 

RTEZA CS/N)?" 

4010 AS-INKEYS:IF ASC>"S" AND A 

S<>"N" THEN 4010 

4020 IF AS-"N" THEN RETURN 



10 LET g=Or POKE 23609.20: 

POKE 23658,8 
100 BORDER 7: PAPER 7: INK 0: 
CLS 

110 PRINT BRIGHT 1; PAPER 3; 
INK 7;AT 4,10;" P C E S " 
120 PRINT BRIGHT 1 ; AT 7,4;" 1 
- INTRODUZIR NOyOS DADOS " 
130 PRINT BRIGHT 1 ; AT 9,4;" 2 
■ VER / EDITAR DADOS 
140 PRINT BRIGHT 1 ; AT 11.4:" 

3- GRAFICO EM ESCALA 

145 PRINT BRIGHT 1 [ AT 13,4;" 

4- GRAFICO EM TELA CHEIA " 
150 PRINT BRIGHT 1; FLASH Ij 
INK 2;AT 16,9;" SELECIONE OPCA 
" 

160 IF INKEYS="" THEN GOTO 

160 

170 LET A$-INKEYS: IF AS<:"1" 

OR A$>"4" THEN GOTO 160 

180 GOSUB VAL AS*1000: GOTO 

100 

500 REM **ROTINA PARA ENTRADA 

DE DADOS NUMERICOS** 

510 INPUT (w3) ; LINE a$ : IF 

LEN aS-0 THEN GOTO 510 

520 FOR J-1 TO LEN aS 

540 IF (aS(j)> = "0" AND a,$(j)<- 

"9"} OR aSU)-"-" OR aSU)-"-" 

THEN NEXT j: LET v=VAL a$: 

RETURN 

550 GOTO 510 

1000 REM **ROTINA PARA ENTHADA 

DE DADOS** 

1010 BORDER 1: PAPER 1: INK 7r 

CLS 

1020 INPUT "NOME DO EIXO X? " ; 



*LIN£ X^S 
10 30 PRINT INVERSE 1;AT 0,0:" 
■+ * xS ■ " "* 

1040 INPUT "NOME DO EIXO Y? " ; 
LINE Y$ 
1050 PRINT INVERSE 1 ; AT 0,16;" 

" : Y$ i " " 
1060 LET w$="QUANTO "+xS+" tl A 

25)? ": GOSUB 500 
1070 IF v<l OR v>25 OR vOINT v 

THEN GOTO 1060 
1090 LET z-V: DIM a (z) 
1100 FOR k=l TO z 
1110 LET W$-"'DIGITE DADOS PARA 
"+STRS k+" ": GOSUB 500 
1120 LET a(k)-V 
1130 PRINT k,a(k.) 
1140 NEXT k: LET g=l: PAUSE 50: 

RETURN 
2000 REM **R0T1NA PARA EDICAO D 
E DADOS** 

2010 BORDER 2: PAPER 2: INK 7 
2020 LET cn-1 

2025 CLS : PRINT PAPER 6; INK 
2;AT 0,0;xS,yS;TAB 31;" " 
20 30 PRINT en, a (en) 
2035 PRINT #1; PAPER 6; INK 2;A 
T 0,0; "EDIT para alterar valor 
corrente Qualquer tecla para co 
ntinuar 
2040 PAUSE 

2050 IF INKEVS--" THEN GOTO 20 
50 

2O60 LET cS-lNKEYS 
2070 IF cS-CHRS 7 THEN GOSUB 2 
500 
2080 IF cn-z THEN PRINT PAPER 

6; INK 2;"FIM DOS DADOS": PAUS 
E 100: RETURN 
2090 LET cn-cn+1: IF cn-21 THEN 

GOTO 2025 
2100 GOTO 2030 

2500 LET wS-" INTRODUZIR NOVO VA 
LOH PARA "+STHS cn+** ": GOSUB 5 
00 

2510 LET aCcn5-v: PRINT PAPER 
6; INK 2;cn,a(cn) ;TAB 31;" ": R 
ETURN 



li 



aS_UC!i. 



IIIIIHHI 



3000 REM **GRAFICO EM ESPSLA** 
3010 BORDER 0: PAPER 0: JlKt 7: 



i 



5 APLlCACOiS 



LET hl-0: 
FOR k-1 TO 
IF d(k)>hl 



LET 

z 

THEN 



lo-O 



LEf.hi-a( 



CLS 

3020 

3030 

k) 

3040 IF aCkXlo THEN LE|^lo-a( 

3050 NEXT k K 

3060 LET type-2: LET oro»4 

3070 IF lo<0 THEN LET tys>e-l : 

LET org-84 

3080 LET h-hl: IF ABS lo>hl THE 

N LET h-ABS lo 

3090 LET ra-hi-lo 

3100 IF h<-l THEN LET hl-1 : GO 

TO 3150 

3110 IF ll<-10 THEN LET hi-lQ; 

GOTO 3150 

3120 IF h<-100 THEN LETfc-100 

: GOTO 3150 

3130 IF h<-1000 THEN LET hl-iO 

00: GOTO 3150 

3140 IF h<-10000 THEN lM hl-1 

0000 nr 

3150 LET wd-INT t25/zj ,It 

3160 IF type-1 THEN LET^ft-80/ 

hi 

3170 IF type-2 THEN LET ft-ieZ 

/hi 

PLOT 56, org: DHAW 198.0 
PLOT 55,4: DRAW 0,160 
FOE n=4 TO 168 STEP 8: 
n: DRAW 3^0: NEXT 
PRINT #1 ; PAPER 1 



n 
I AT 



PLO 



0,14i 



3180 

3190 

3200 

T 52 

3220 

- " i kS ; " " 

3225 LET z$-' "+y$ + '- " 

3230 FOR n-1 TO LEN 2$ 

3240 PRINT AT n+(19-LEN f$)/2 

; PAPER l;z$Cn) 

3250 NEXT n 

3255 LET dc»l 

IF type-1 THEN GOTO 3320 
FOR n-hl TO STEP -(hi/10 



I 



3260 
3270 
) 
3275 



IF n<.01 THEN LET n-O 



(6-LEN (US) ;n 



3280 LET n$-STR$ 

3290 PRINT AT dc, 

3295 LET dC-CfC+2 

3300 NEXT n 

3310 GOTO 3400 

3320 FOR n-hi TO -hi STEP -(hi/ 

5) 

3330 IF n<.01 AND n>- . 01 THEN 

LET n-0 

3340 LET nS-STRS n 

3350 PRINT AT dc, (6-LEN gf ) ; n 

3360 LET dc-dc+2 

3370 NEXT n 

3400 LET ink-1 

3410 FOR n=l TO z 

3420 LET cin-org 

3430 LET ink-ink+1; IF ink-8 TH 

EN LET lnk-2 

3440 INK ink 

3450 FOR iJi-1 TO (aCn)*fC) STEP 

SGN a in) 

3460 PLOT 56+(n-l)*wd*e,cm: DHA 

U wd*a-2,0 

3470 LET CB-cin+SGN a (n) 

3480 NEXT m 

3490 NEXT n 

3500 IF INKEYSO"" THFN GOTO 3 



I 



500 

3510 

10 

3520 

4000 

A** 

4010 

CLS 

4020 

4030 

n) 

4040 

n) 

4050 

4060 

a: L 

4070 

4080 

4090 

4100 

n n , 

4110 
4120 
4130 
: PA 
4140 
4150 
4200 



IF INKEYS- 



THEN GOTO 35 



RETURN 

REM **GRAFICO EM TELA CHEI 

BORDER 0: PAPER 0: INK 7; 
: LET hl-0: LET lo=0 
FOR n-1 TO 2 
IF atn)>hl THEN LET hi-a( 

IF a(n)<lo THEN LET lo=a( 

NEXT n 

LET ra-hi-lo: LET ft=17S/r 
ET oro- tra-hi ) *f t 

LET wd-INT (25/z) 

PLOT 56, org: DRAW 198.0 

PLOT 55,0: DHAW 0,175 

PRINT II; PAPER 1;AT 0.14; 
X5;" " 

LET zS-" "■t-y& + '' " 

FOR n-1 TO lEN zS 

PRINT AT n+(19-LEN yS)/Z,0 
PER l;zS{n) 

NtXT n 

PRINT AT 0,0; hi; AT 21,0; lo 

GOTO 3400 



10 CLS: RESTORE 

20 DATA ENTHAR DADOS . GRAF I CO DE 

BARRAS,VER/EDITAR DADOS, FIM DE 

PROGBAMA 
30 LOCATE?. 2 ;PRINT"« E N U P 
RINCIPAL" 
40 F0RI-1T04:READM5 
50 LOCATEIO, 2*1+7 :PRINTI; "- ";M 
S 

60 NEXT 

aO PRINT : PRINT : PRINTTAB (20) "OPC 
AO?" ; 

90 R$-INKEy?: IFH$-""THEN90 
100 IFR$<"1"ORHS>"4"THEN90 
110 ONyAL(R$)GOTO100 0,20 00, 3 000 
,4000 

ISO LO-VA(l) :HI-VA(1) 
160 FORI=lTONBt 
170 IFVA(I)>KITHENHI-'VA(I) 
180 IFVA(I)<LOTHENLO-UA(I) 
150 NEXT; RETURN 

1000 CLS: IFNBt<>0THENLOCATE10,l 
4:PRINT'*CONFIRMA7 ";ELSE1030 
1010 RS=INKEVS:IFRS='"'THENi010 
1020 IFRS<>'S"THEN10 
1030 CLS:LOCATE10 ;PRINT"ENTRADA 

DE DADOS" 
1040 CLEAR:LOCATE0,4:INPUT"NOME 

DO EIXO-X " ;X$ 

1069 XS-LEFTS (XS,9) :IFXS-""THEN 
XS-^'EIXO-X" 

1060 INPUT"NOME DO EIX(1-Y ";Y$ 

1070 YS-LEFTS(YS,9) :IF^-""THEN 
Y$-"EIXO-Y' 

1080 PRINT: INPUT"NOMERO DE BARR 

AS ; " ' NB% 

1090 iFNB*>65THBN10eO 

1100 DIMVACNBi) : PRINT: PRINT 

1110 rORI-lTONBt 

1120 PRINT'VALOR DA BARR* 

INPUTVA(I) 

1130 NEXT:GOTO10 



2000 IFNBt-OTHENlO 

2010 GOSUB150 

2020 IFSGN(HI)<>SGN(LO)THENHT-A 

BS(H1)+ABS(L0) :GOTO20S0 

2030 HT-ABSC(SCN(HI)-1)*ABS(HI) 

+ (SGN (LO) — 1) *ABS (LO) ) 

2040 IFHT-OTHENIO 

2050 A-2*INT{(180-3*NB»)/NBt/2: 

:S-3:ES-150/HT 

2060 IFA>15THENA-15 

2070 IFLO>-0THENY-155:GOTO2100 

2080 IFHI<-0THENY-5:GOTO2100 

2090 Y-INT(eO+{ABS(HI)-AaS(LO)) 

*ES/2) 

2100 SCREEN2:C0L0R 15.4,4:P-61 

2110 LINE (55,5)-(55,158) -LINE 

(52,Y)-(250,Y) 

2120 FORI-lTONBt 

2130 LINE {P,Y-SGN(VA(I) ) )-(P+A 

,INT(y-(VA(I)*ES) J ) ,6,BF 

2140 P-P+S+ArNBXT 

2150 OPEN "GHP: " FOR OUTPUTASI 

1 

2160 PRESET(0,33 

2170 FORI-ITOLEN(YS) 

2180 PHINTtl ,TAB(1)MIDS(Y$,I,1) 

:NEXT 

2190 PRESET {1/0,160} 

2200 PRINTil.XS 

2210 IFSGN(LO) <>SGN(HI)THEN2250 

2220 PRESET (0, Y) :PRINTtl. TAB (4) 

"0" 

2230 PRESET(15,155+(150*(HI>0)) 

) ;PRINT|1,L0*{-(SGN(L0)— 1))+HI 

*(-(SGN(HI)-l)) 

2240 GOTO 2270 

2250 PRESET(15,155) ;PRINTtl.LO: 

PRESETC15,5) ;PRINT|1,HI 




5 APLICACOES 5 



2260 PHESET(0,Y) :PRINT|1,TABC4) 
"0" 

2270 CLOSE 

2280 IFINKEYS-""THEN2280 
2290 SCHEEN0:GOTO10 
3000 IFNBt-OTHENlO 
3010 CLS:LOCftTE10:PaiNT"MODULO 
DE EDICAO' 

3020 PHlNTiPRINT'BARBA" , 'VALOR" 
3030 FORJ-ITONB* 
3040 PHINTJ,VA(J) 
30S0 IFINT{J/17)-J/17THENGOSUB3 
090 

3060 NEXT 
3070 GOSUB3090 
3080 GOTOIO 

3090 LOCATEO, 20:PRINT"Tecle <E> 
para editar ou qualQuer outra 
tecla para continuar"; 
3100 RS-INKEYS:IFR$-""THEN3100 
3110 I FRSO'E' THEN LOCATEO, 3: FOR 
H-lTOl9:PaiNTSPC(40) iNEXT:LOCAT 
EO . 3 ; RETURN 

3120 LOCATEO. 20 :PRINTSPC (79) :L0 
CATEO. 20:INPUT"Qual barra ";B 
3130 LOCATEO, 21 :INPUT"Novo valo 
r ";VA(B) 
3140 r-B;GOSUBl50 
3150 GOTO3090 

4000 CLS: LOCATE?, 14 :1NPUT'FIM D 
E PROGRAMA (S/N)';HS 
4010 IFRS<>"S"THEN10 



DE BARRAS.VER / EDITAR DADOS, F 
IM DE PROGRAMA 

30 UTAB 3: HTAB 8: PRINT "M E 
NU PRINCIPAL" 
40 FOB I - 1 TO 4 
50 READ M$ 

60 HTAB 10: VTAB 2*1+6: PR 
INT I ; "- " ;MS 
7 NEXT 

80 PRINT : PRINT 
INT "OPCAO ->" i 
90 GET R$: IF RS 
"4" THEN 90 



HTAB 20: PR 



< "1" OR RS > 



100 ON VAL (H$) GOTO 1000.200 

0.3000,4000 

110 LO - VAU) :HI - VA{1) 



120 
130 
(I> 
140 
(1) 
150 
1000 



FOR I - 1 TO NBt 

IF VA(1) > HI THEN HI - VA 

IF WA(I) < LO THEN LO - VA 



[i][3] 



10 HOME : RESTORE 

20 DATA ENTRAR DADOS. GRAF ICO 



NEXT ; RETURN 
HOME : IF NBt < > THEN 
VTAB 15: PRINT TAB ( 10)''CONF 
IRMA? (S/N)";: GET RS : IF RS < 

> "S" THEN 10 
1010 HOME : PRINT TAB ( 10) "EN 
TRADA DE DADOS" 

1020 CLEAR ; VTAB 4: INPUT "NO 
ME DO EIXO 'X' : " ;XS 
1030 XS - LEFTS (XS.5): IF X$ 

- "" THEN XS - "EIXO-X" 

1040 INPUT "NOME DO EIXO 'Y' ; 

" ;YS 

1050 Y$ - LEFTS tYS,5}: IF YS 

- "" THEN Y$ - "EIXO-Y" 

1060 PRINT : INPUT "NUMERO DE 
BARRAS: ";NBt 




1070 IF NBt > 65 THEN 1060 

1080 DIM VA(NBt) 

1090 PRINT : PRINT 

1100 FOR I - 1 TO NBt 

1110 PRINT "VALOR DA BARRA ';I 

; : INPUT VA ( I) 

1120 NEXT : GOTO 10 

2000 IF NBt - THEN 10 

2010 GOSUB 110 

2020 IF SON (HI) < > SGN <L 

0) THEN HT - ABS (HI) + ABE ( 
L0> : GOTO 2050 

2030 HT - ABS (( SGN (HI) - 1) 
* ABS (HI) + ( SGN (LO) - - 

1) * ABS (L0>) 

2040 IF HT - THEN 10 

2050 A - 2 * INT ((270 - 2 * N 

Bt) / NBt / 23:S - 2:ES - 150 / 

HT 
2060 IF A > 15 THEN A - 15 
2070 IF LO > - THEN t • 155 
; GOTO 2100 

2080 IF HI < - THEN Y - 5: 
GOTO 2100 

2090 y - INT (76 + ( ABS (HI) 
- ABS (L0>) * ES / 2) 
2100 HGR : HCOLOH- 7:P - 4 
2110 HPLOT 2.0 TO 2.158: HPLOT 

O.Y TO 2 79. y 
2120 HCOLOR- 5 
2130 FOR I - 1 TO NBt 
2140 FOR J - 1 TO A 
2150 HPLOT J + P.Y - SGN (VAC 
I) ) TO J + P, INT (Y - (VA(I) * 

ES) ) +1 
2160 NEXT :P - P + S + A; NEXT 

2170 VTAB 21: HTAB 1: PRINT XS 

i TAB( 34) :YS 

2180 VTAB 22: HTAB 10: PRINT " 

VAL MAX-";HI;: HTAB 25: PRINT " 

UAL MIN-" iLO 

2190 PRINT TAB! 5) ; " PRESSIONE 

QUALQUER TECLA PARA SAIH' ; 
2200 GET RS: TEXT : GOTO 10 
3000 IF NBt - THEN GOTO 10 
3010 HOME : PRINT TAB ( 10) "MO 
DULO DE EDICAO" 

30 20 PRINT ; PRINT *BARHA","VA 
LOR" 

3030 FOB J - 1 TO NBt 
3040 PRINT J,VA(J) 
3050 IF PEEK (37) - 20 THEN 
GOSUB 3090 
3060 NEXT 
3070 GOSUB 3090 
3080 GOTO 10 

3090 VTAB 21: HTAB 1: PRINT "T 
ECLE <E> PARA EDITAR OU QUALQUE 
R OUTRA TECLA PARA CONTINUAfl 
-;: GET RS : IF RS < > "E" THEN 

VTAB 4: HTAB 1: CALL - 958: 
JIETURN J 

*3100 VTAB 21: HTAB 1: CALL * 
956: INPUT "QUAL BARRA? "jB 
3110 INPUT "NOVO VALOR? "iVAtB 
) 
3120 I - B: GOSUB 110 



iasii 



130 GOTO 3090 _, 

00 mmS : VTAB 15; HTAB 10; J 

PRINT "FIM DE PROGRAMA? " ; : GET 
RS: IF RS < > "S" THEN 10 " 



OGRAMA 




Entre os varies recursos graficos 
do MSX, sprite destaca-se 
por servir de base ao funcionamento 
da maioria dos jogos de acao. 
Veja como e f^cil usa-lo. 



Urn sprite e urn tipo especial de carac- 
tere grifico definido pelo usuario, dese- 
nhado em alta resolut^ao e extremamen- 
le facil de movimeniar. Alguns exempios 
de seu uso ja foram vistos em artigos an- 
teriores. Alem da mobilidade, o sprite 
tern outras caracteristicas especiais, tais 
como a possibilidade de definir e movi- 
meniar mais de um sprite e de indicar se 
houve colisao na tela — ou seja, se dois 
sprites coincidiram no mesmo ponto. 

Nao surpreende, portanto, que os spri- 
tes estejam preserves na maioria dos pro- 
gramas de jogos. Mas sao, tambem, uti- 
iizados em qualquer tipo de programs 
que necessite de figuras moveis em alta 
resoluijao — por exemplo, programas fi- 
nanceiros que cmpreguem um "icone" 
{simbolo apontando para as op^oes). 



DEFINICAO DE UM SPRITE 



O desenho de um sprite e definido 
informando-se ao computador quais 
pontos devem ser "acesos" e quais de- 
vem ser "apagados", para que se obte- 
nhao padrao desejado. Existem dois ta- 
manhos de sprite: pequeno (8x8 pontos) 
e grande (16x16). No decorrer deste ar- 
tigo, Irataremos apenas dos sprites gran- 
des, salvo mengao em contrario. 

Um sprite grande e formado por de- 
zesseis linhas de dezesseis pontos cada. 
Em vez de se definir, ponto por ponto, 
quais serao acesos ou apagados, 
reunem-se cada oito pontos em um gru- 
po. Assim, a informagao sobre o padrao 
de uma linha do sprite e armazenada em 
dois grupos de oito pontos cada. 
.^iribuindo-se o algarismo "1" para os 
pontos acesos e "0" para os apagados, 
cada grupo de oito pontos se transfor- 
mara em um niimero binario (byte de 8 
bits) que, convertido para a forma de- 
cimal, dara origem a um numero entre 

e 255. Cada sprite, portanto, e forma- 
do por 32 grupos de oito pontos, 32 nii- 
meros binaries de oito digitos (8 bits ou 

1 byte) ou, simplesmente, 32 niimeros. 
Estes numeros sao agrupados em uma li- 
nha DATA, ordenados como descrito 
adtante. Calculam-se da mesma maneira 
OS valores para sprites pequenos, ja que 
eies sao formados por oito linhas de oi- 
to pontos cada, dando origem a 8 bytes. 




A ordem dos bytes no sprite e a se- 
guinte: 



Linha 1 : 
Linha 2: 
Linha 3: 



BYTE 
BYTE 

BYTE 



BYTE 
BYTE 
BYTE 



17 
18 
19 



e assim por diante ate que: 



Linha 15: 
Linha 16: 



BYTE 
BYTE 



15 BYTE 31 

16 BYTE 32 



... sendo que os bytes foram numerados 
na ordem em que aparecerao na linha 
DATA. 

Uma orient aifao para o cilculo des- 
tes valores, uma vez definido o padrao 
grafico para o sprite, e dada na figura 
da pagina 190. Por meio do exemplo, 
voce tera uina id^ia de como obter o va- 
lor decimal correspondcnte a um gru- 
po de oito pontos. Se todos os pontos 
estiverem- acesos, o valor decimal sera 



QUE E m SPRITE? 



APLICACOES 



COMO DEFINIR 



E MOVIMENTAR SPRITES 



PRIMEIROS PASSOS 



UM PROGRAMA PARA CR!AR 



SPRITES 



USO DOS SPRITES 



"TIRO AO PASSARO' 



CONTROLE DE COLiSOES 




128 + 64 + 32+16+8 + 4 + 2+1, ou se- 
ja, 255 (veja, no alto da figura, o valor 
pelo qual se deve multiplicar tada pon- 
to). Se todos estiverem apagados, a so- 
ma dos valores sera zero. Entre estes 
dois esiremos havera um unico valor pa- 
ra cada permutacao possivel de pontos 
acesos e apagados. Cada valor obtido 
pode ser usado na definiijao do sprite, 
desde que colocado em uma iitiha tJA- 
TA, na ordem ja espccificada. 



OS PRIMEIROS PASSOS 



Exercite-se um pouco. Comece dese- 
nhando o padrao da figura desejada em 
papel qiiadriculado. Deli- 
mite uma area de dezes- 
seis por dezesseis qua- 
drinhos e indique as posi- 
V'oes dos bytes. Na figura da 
pagina 190, por exempio, 
detlnimos tim sprite que 
reprcsenta iima nave espacial. 
Ao lado da figura, lemos o va- 
lor de cada byte em decimal. O 
primeiro b>ie da primeira linha rem 
todos OS seus pontos apagados, excc- 
to o ultimo, cujo valor podemos encon- 
trar no alto da figura. Como so ha um 
ponto aceso, seu valor e o valor total do 
byte: 1 , Na segtinda linha temos o se- 
gundti byte (veja a ordem dos bytes no 
sprite, ja fornecida). O segundo ponto 
esta aceso, bem como o ijltimo. Se con- 
sultarmos os valores desses pontos no al- 
ta da tabela, veremos que o valor do 
byte 2 e 64+ 1 -65. Os proximos tres 
bytes tern o mesmo valor. A proposito, 
uma recomeiidafao pratica: apos calcu- 
lar o valor de um byte, vcrifique sc, no 
resto do sprite, exi.stem outros bytes com 
o mesmo padrao c. portanto, com o 
mcsmo valor. Agora vamos a linha 6. 

byte 6 tern o segundo e o setimo pon- 
tos acesos, o que Ihe da um valor de 
64 + 2 = 66. O valor do byte 7 , que apre- 
senta os pontos 2 c 6 aceso.s, e 
64 + 4 = 68. O byte 8, por sua vez, tem 
OS pontos I, 2, 3, 5 e 8 acesos, resul- 
lando num valor de 128 + 64 + 32 + 8 + 

1 =233. Calcule os bytes restantes do 
mesmo modo. Terminado o trabalho, 
coloque os ntimeros obtidos cm uma li- 
nha com instruv'ao D.4T,\. Para definir 
e movimcntar o sprite, digite o progra- 
ma completo: 

10 SCREEN 2, 2: COLOR 15,4,4 
FOB I-l TO 32 
HEAD A:AS-AS+CHRSCA) 
NEXT I 

SPRITES 10)-AS 
FOR 1-210 TO -20 STEP -.5 
PUT SPRITE 1, (1,1) ,10, 
NEXT I 
DATA 1,65.65,65,65.66, 



20 
30 
40 
50 
60 
70 
60 
100 



,0 



.68. 



233.169,191,175,163,227,3.15.17 
,0,4.4.4,4,132,68.46.42,250,2 34 
,138,142,126,224,16 



Para a defini^ao de tim sprite em BA- 
SIC, devem-se colocar os vaiores jacal- 
culados dentro de uma cadeia aifajiume- 
rica. Em nosso exempio. isso e feito pe- 
lo lav'o FOR. ..NEXT das linhas 20, 30 
e 40. Note que dentro de uma cadeia nao 
sc colocam numeros e, sim, caracteres 
Lujos codigos ASCII correspondam aos 
numeros desejados. Observe a linha 30. 
Ela le OS dados da linha DATA e os co- 
loca na variavel AS, usando a funcao 
CHRS (At. que define o caraclere cujo 
codigo esta na variavel A. 

A defini^ao propriamente dita do 
sprite e feita na linha 50, pelo comando 
SPRITES (0) AS. O nilmero e o nii- 
mero do sprite (no MSX podemos ter 
sprites numerados de a 9). Observe que 
na linha 10 escolhemos a tela de aha re- 
so!u(;ao, pois a de lexto de 40 coiunas 
nao permite o uso de sprites. Nessa li- 
nha cnconiramos o comando SCREEN 
2,2, Como voce ja deve saber, o primei- 
ro m'lmero corresponde ao formato da 
tela (2 para a tela de alta reso!u<;ao). O 
segundo niimero deve ser novo para vo- 
ce, tile estabelece o tamanho do sprite 
utilizado: 0-pequeno (8x8t, 1-pequeno 
ampliado (16x16, baixa resolu^ao), 
2-grande (16x16) e 3-grande ampliado 
(32x32, baixa resolu;;ao). 

Para dcsenhar e movimentar o spri- 
te na tela iisamos o comando PUT 
SPRITE. Nao e precise seguir o sprite 
apagando posifoes ja ocupadas: ao de- 
scnharmos um sprite na nova posii^ao, 
a antiga e automaticamente apagada. O 
formato desse comando e PUT SPRI- 
TE P. (X, V). C, N, onde P eapriori- 
dade do sprite. X e a coordenada hoh- 
zonlal do sprite, variando de -32 (fora 
da tela, portanio) a 255; Yea coorde- 
nada vertical, que varia de -32 a 191 , po- 
dendo ainda assumir os valores 208, que 
faz com que todos os sprites de menor 
prioridade desaparecam da tela, e 209, 
que apaga o sprite na tela; C e a cor do 
sprite, e N, o niimero do sprite. 

Quando dois ou mais sprites ocupa- 
rem a mesma posii;ao na tela, aparece- 
ra apenas o que estiver "na frente", ou 
seja, aquele que tiver o numero de prio- 
ridade menor. Isso permite dar aos seus 
jogos efeitos tridimensionals. Os carros 
passam atras dos postes, e ursos se es- 
condem atras de arvores, pore.xempio. 
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UM PROGRAMA PARA CRIAR SPRITES 



A tarda mais aborrecida, ao se ira- 
balhar com sprites, consiste em calcu- 
lar OS 32 niimeros que serao colocados 
na linha DATA. Em vez de taze-lo ma- 
nualmente, use um programa que tra- 
baihc por voce. 

Este devera, em primeiro lugar, per- 
midr a utilizacao dos recursos de edi(;ao 
e movimentagao do cursor do MSX pa- 
ra desenhar a figura do spriie na tela. 
Em seguida, precisara calcular os valo- 
res correspondentcs que serao inciuidos 
na linha da jn^itru^ao DATA, 
possibilitando-Ihe usar o sprite em seii-S 
programas. 

O programa seguinte Foi preparado 
para efetuar todas essas coisas, oferc- 
cendo ainda a opgao de produzir uma 
copia impressa, caso voce tenha uma im- 
pressora. A tarefa de digita-io e grava- 
!o em uma fita cassete e compensado- 
ra, pois facilita muito a posterior cria- 
i;ao de sprites. 

5 SCREEN 0:KE.y OFF 

10 DIM A3(16) ,2(2,16) ,A(16) 

20 CLS:PRINT TAB (10) ; "EDITOR DE 

SPRITES" 
30 PRINT- PRINT TAB (8) :: INPUT "C 
dPIA IHPRESSA (S/N) "jISrlF 1$- 
"S" THEN PR3-''S" 

40 IF ISO'S" AND I$<>"N" THEN 
GOTO 20 
50 PRINT; PRINT TAB ( 15) ; "Aguarde 

60 FOR 2-1 TO S 

62 READ A(E) :ACZ+S)-A(Z) 

64 NEXT 

66 DATA 128,64,32,16.8,4.2,1 

70 FOR Z-1 TO 16 

75 READ A$(Z) 

80 FOR 22-1 TO 8 

85 IF MIDS(A$(Z) ,ZZ,1)-"*" THEN 



Z(1,Z)-Z(1.Z)+A(2Z) 

90 NEXT ZZ:FOR ZZ-9 TO 16 

95 IF MID$(AS(Z) .ZZ.I)-"*" THEN 

Z(2,Z)-ZC2,Z)+A{ZZ) 
100 NEXT 22,2 

110 CLS;IF PRS-'S" THEN OPEN "L 
FT:" FOR OIJTPUT AS # 1 ELSE OPEN 

"CRT:" FOR OUTPUT AS # 1 
120 PRINT II. "Linha DATA "; 
130 FOR Z-1 TO 16 
132 PRINT il.ZCl.Z) ;"." ; 
134 NEXT 2 
136 FOR Z-X TO 16 

138 PRINT #1 ,Z (2,2) ; : IF Z<16 TH 
EN PRINT II, " , " ( 
140 NEXT Z 

145 PRINT 11." ": PRINT 11," " 
150 IF PR$-"S" THEN GOTO 170 
155 PRINT ll.'Aperte return par 
a continuar" 
160 KS-INKEYS 

165 IF KSOCHRSC13) THEN GOTO 1 
60 

170 SCREEN 1,3: COLOR 14,5.5 
172 VPOKE BASE(6)+15,68 
174 VPOKE BASE{6)-»-5,69 
176 PRINT ll.TAB (5) ;"DESENHO DO 

SPRITE" 
178 PRINT #1," ": PRINT 11." " 
180 PRINT I1.TABC5) ;"1Z34567890 
123456" 

190 FOR Z-1 TO 16 
195 PRINT il,TABC5) ; 
200 FOR ZZ-1 TO 16 
Z05 IF MIDSCAS(Z) .22.1}- 
N PRINT H,CHR$(120) 
T II,"."; 

210 NEXT ZZrPRINT #1 
220 NEXT Z:IF PRS-"S 
E:END 

230 FOR Z-1 TO 16 
240 AS-AS+CHR$(Z(1,Z)) 
250 B$-BS+CHR$(Z(2.Z}) 
260 NEXT:SPRITES(0)-AS+BS 
270 FOR Z-190 TO 5 STEP -5 
275 PUT SPRITEO, (10, Z) ,1 
280 NEXT 
290 IF PRSO'S" THEN GOTO 290 
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300 REM 1234567890123456 

301 DATA" 

302 DATA" 

303 DATA" ■ ■ 

304 DATA" 

305 DATA" ' 

306 DATA" " 
30 7 DATA" " 

308 DATA" 

309 DATA" 

310 DATA' 

311 DATA" 

312 DATA" 

313 DATA" " 

314 DATA" 

315 DATA" /" 

316 DATA" 

Rode o programa. tal como ele esta, 
para verificar se houve algum erro de di- 
gitat;ao. Ao t'aze-lo, responda N a per- 
gunta da linha 30. 

Para usar o programa, digiic LIST 
300-. Isso fara com que as dezesseis li- 
nhas DATA vazias do final da listagcm 
surjam na tela. Descnhe dentro dclas o 
padrao do sey spriie. Cada uma das de- 
zesseis posicoes das linhas, entre as as- 
pa.s, representa um ponto. Use apenas 
OS controlL's dc mov!menta(;ao do cur- 
sor e a barra de cspai;o, colocando um 
asterisco iias posicoes que deseja acen- 
der. Evite usar INS e DEL, que alteram 
o numero de posi(;oes entre as aspas. 
Nao deixe dc apertar RKTURN em ca- 
da uma das dezesseis linhas D.4TA; ca- 
so contrario, o .MSX nao sc lembrara 
delas. Orienle-se pelos niimeros da linha 
300, que correspondem as posivoes ho- 
rizontals. Um desenho lipico se encon- 
tra na figura da pagina ao lado. que re- 
presenta um passaro voando. 

Quando completar .seu desenho, apa» 
gue a tela e liste as liltimas linhas para 
conferir. Rode o programa. O compu- 
tador Ihe dar^, eniao, a opcao dc copia 
impressa. Responda N c veja o resulta- 
do na tela. 

Primeiro, surgem os 32 niimeros da.s 
linhas DATA. Um desenho ampliado de 
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PLANEJAMENTO DE SPRITES 

Existe um modo muito pr^tico de 
usar o programa de criacao de sprites. 
Desenhe seu sprite em papel quadricu- 
lado com tamanho correspondente ao 
das linhas DATA do final da listagem. 
Pregue-o com fita adesiva na tela de 
sua TV. Em seguida, simplesmente use 
OS controles do cursor para desenhar 
ssteriscoB nas posigoes dos quadrinhos 
que voce pintou, 



seu sprite e mostrado a seguir, 
apertando-se a tecia RETURN. As te- 
clas CTRL e STOP, prcssionadas ao 
mesmo tempo, intcrrompcm o progra- 
nia. Caso tcnha uma impressora e dese- 
jc uma copia impressa, rode o progra- 
ma novamente e responda S a pcrgunta 
da linha 30. O resultado sera enviado a 
impressora, e nao a tela. Algumas im- 
pressoras requcrcm um ajusie no numc- 
ro maximo de caracteres por linha (use 
quarenta). 

Para o exempto da figara do passa- 
ro. o resultado e o seguinle: 

Lir:ha DATA 12S , 192 , 176 , 7 
2 . 116 , 84 , 50 , 42 , 41 , 3 
7 , 26 , 4 , 56 . 199 , 98 , 28 

. 7 , 30 , 42 , 84 , 84 , 168 
, 168 , 208 , 160 , 248 . 4 , 3 
4 . 222 , 33 . 144 , 72 

DESENHO DO SPRITE 



1234567890123456 

X .,,,,. XXX 

xji xxxx 

X . XX X . X . X 

X. .X. . . .x.x.x. 
XXX . X . . . X . X . X . 
x.x.x. .x.x.x. . 

.XX. .X. x.x.x. . 

.x.x.x . XX .X. . . 

.X.X. .xx.x . . . . 

.X. .x.xxxxxx. . 

. . XX . X X . 

.. ..X.. ..X...X 

.XXX. . , XX. XXXX 

XX . , .XXX. .X. . , -X 

XX . . . X . X . . X . . . . 

. .XXX. . .X. .X. . . 



1 

2 
3 
4 
5 

6 
7 
8 
9 
10 

11 

12 
13 
14 
15 
16 



O mesmo programa pode ser uiiliza- 
do para sprites pequenos. Para tanto, 
desenhe scu padrao utilizando apenas 
OS oito primeiros bytes, ou seja, no qua- 
drantc superior esqiierdo do cotijunto de 
linhas DATA. Considere apenas. os pri- 
meiros oito niimeros calculados. 



COMO USAR SPRITE 



O programa seguinte descnha e mo- 
vimenta o sprite do pas.saro, que acaba- 
mos de calcular. 

10 SCREEN 1,2; COLOR 15,4,4 

20 FOR I-l TO 32 

21 READ ArA$-A$+CHRS{A) 

22 NEXT I :TIME-0 

23 SPRITES (0) -AS 

25 X-90;Y-X:GOTO 50 

30 KS-INKEY$:A-0 :XX-0 

31 IF KS-"" THEN GOTO 30 

32 IF KS-CHBS(30) THEN A-1:G0T0 
50 

35 IF KS-CHRS(31) THEN A-Z:GOTO 

50 
40 IF KS-CHHSC29) THEN XX--2:G0 



TO 50 

45 IF P.$-CHR$C2e) THEN XX-2:G0T 

O 50 

50 FOR Z-I TO 10 

52 X-X+XX:IF X>255 THEN X-0 

55 IF X<-32 THEN X-25S 

60 IF A-1 AND Y>-32 THEN Y-y-2 

65 IF A-2 AND Y<190 THEN Y-Y+2 

70 PUT SPRITE 0, (X,Y) .15 

75 NEXT Z:G0TO 30 

100 DATA 128,192,176.72,116,84, 

50,42.41,37,26,4,56.199,98,28.7 

,30.42,84,84,168.168,2 08.160,24 

8,4,34,222,33.144,72 

O sprite c dcsenhado na tela de tex- 
los de 32 colunas e pode .ser movimen- 
lado pclas teclas de controle do cursor. 
Para tisar qualquer outro sprite, basta 
mudar a linha 100. 

O (ago conlido rta,s litihas 20, 21 e 22 
le OS valoresda linha lOOeos coloca na 
variavcl AS. A linha 25 define o sprite 
atribuindo-lhe o niimero 0. As linhas de 
30 a 75 movimentam o sprite conforme 
a tecla pressionada. 



COLISAO DE SPRITES 



Outro recurso interessante dos spri- 
tes e a indicagao da ocorrcncia de eoli- 
sao entre dois deles, em sua movimen- 
ta<;ao pela tela. Para entender como is- 
so e feito, apague a linha 32 do tJltimo 
programa e acrescenie: 

20 SPRITE ON:FOR I-l TO 40 

22 NEXT IrTIME-0:S-0 

23 SPRITE${0)-LEFTS(AS,J2) 

24 SPRITES (1)-RIGHT$ (AS, 8) 

25 X-90:Y-X:XX-100:YY-XX 

30 FOR Z-1 TO 5: LOCATE 0,0 

31 PRINT "TEMPO: "iTIME; 

35 A-INT(BND(1)*3>+1:X-X+10 

36 IF X>255 THEN X— 30 

40 IF A-1 AND Y>-30 THEN y-Y-10 
45 IF A-2 AND y<250 THEN Y-Y+10 
50 PUT SPRITE 1, (X,Y) ,15,0 

52 ZS-INKEYS:IF ZS-"" THEN GOTO 
52 

53 IF 2S-CHBS(29) AND XX>-30 TH 
EN XX-XX-5 

55 IF ZS-CHRSt28) AND XX<250 TH 

EN XX-XX+S 

60 IF ZS-CHHSt30) AND Yy>-30 TH 

EN YY-YY-5 

66 IF ZS-CHBS(31) AND YY<190 TH 

EN YY-YY+5 

70 PUT SPRITE 0. (XX,yY) ,10,1 

72 ON SPRITE GOSUB 1000 

75 LOCATE 2 0,0: PRINT "SCORE: "; 
S 

76 NEXT ZiIF TIME<5000 THEN 30 
80 PRINT :PRINT "0 Tempo acabou 
1 * : END 

110 DATA 8.8,62,8,8.0,0,0 

1000 SPRITE 0FF:S-S+1 

1010 FOR I-Y TO 191 

1020 PUT SPRITE 1,(X,I),15,0 

1030 NEXT I:SPHITE ON 

1040 X — 30: RETURN 
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COMO EDITAB UIVIA LirJHA DATA 
Para evitar o trabalho de digitar a li 
nha DATA criada pelo programa. -faca 
o seguinte: assim que o computador 
fornecer os numeros, pare o programa 
usando CTRL + STOP. Movimente o 
cursor ate o topo da tela, onde se en- 
contra a linha DATA. Usando DEL, apa- 
gue a palavra "Linha" e, usando INS, 
escreva o niimero da linha DATA no 
programa que esta preparando. A se- 
guir, aperte RETURN. O efeito serd 
identico ao da digitacao de todos aque- 
les numeros. 

Este metodo pode ser usado para 
colocar a mesma linha em programas 
ji existentes em fita. Carregue o pro- 
grama sem apagar a linha DATA da ta- 
bela. programa carregado apaga a 
memdria, mas nao apaga a tela. Movi- 
mente o cursor ate a linha DATA, mo- 
difique seu numero, se necessario, e 
aperte RETURN. 



Este c um pequeno jogo de "tiro ao 
passaro", extremamente simples, ma."* 
titil k nossa finalidade. Nao expSicare- 
mos sen t'uncionanienio cnquanlo jogo, 
resiringindo-nos apenas ao controle de 
colisoes. 

Para que possamos trabalhar com co- 
■lisocs de sprites, devemos "habilitar" o 
programa a reconhcccr tal ocorreneia, 
por meio da instrutao SPRITE O.N. na 
linha 20. Uma vez feita a habilitai;ao, 
devemos usar a instrupao ON SPRITE 
GOSUB, que desvia o programa para 
uma sub-rotina sempre que quisermos 
verifiear se houve uma colisao de spri- 
tes. Nesta sub-rotina podeestar progra- 
mado um efeito visual ou sonoro de ex- 
plosao, por e.xemplo. Em nosso progra- 
ma, tal comando ocorre na linha 72. Ca- 
so haj a colisao entre o passaro e a "mi- 
ra", controle e transferido para a sub-^ 
rotina 1000, que incrementa o escore e 
fa? com que o passaro caia. Durante a 
execugao da sub-rotina, o programa e 
desabilitado pela instrufao SPRITE 
OFF na iinha 1000. Esse e um procedi- 
mento usual e quase sempre necessario, 
e nao ha uma explicacao simples para 
ele. Retire este comando, bem como o 
de habilitagao da linha 1030. e veja co- 
mo ocorrem erros no escore. 

Existe ainda a insirui;ao SPRITE 
STOP, que nao desabilita o programa 
mas adia qualquer dcsvio, guardando a 
ocorrcncia de colisoes na memoria. So 
havera o desvio ap6s a ocorrencia de um 
SPRITE ON no programa. 



CON JUNTOS :CAIX AS 
DE INFORMACAO 



Os conjuntos constituem um recurso 
muito eficaz para armazenar e 
processar listas de qualquer natureza: 
nomes, datas, as mais diversas 
estatisticas. Aprenda a utiliza-los. 



Os conjuntos sao uma forma de re- 
presentagao de dados em programa BA- 
SIC, constituindo metodo mais adequa- 
do para se programar a manipulafao de 
informaijoes inter-relacionadas — por 
exemplo, listas dos membros de um clu- 
be, com seus respectivos enderegos e ins- 
cri<;6es, registros financeiros ou, entao, 
listas de personagens, armas e tesouros 
para um jogo de aventuras. 

O comando LET, que voce ja conhe- 
ce, poderia ser utllizado para atribuir va- 
lores como esses a uma serie de varia- 
veis. No entanto, para listas muito Ion- 
gas, eie e bastante ineficiente, pois to- 
ma muito tempo de digita(;ao. 

O conjunto simplifica o trabalho, ar- 
mazenando a informai;ao de uma for- 
ma mais compacta. Em vez de uma va- 
riavel diferente para cada item da infor- 
maeao, utiliza-se uma variavel com o 
mesmo nome para todos os itens — o 
A. por exemplo. E, para se diferenciar 



um item dos demais, acrescenta-se sim- 
plesmente um niimero (ou, as vezes, uma 
expressao aritmetica) entre parenteses, 
logo apos o nome da variavel. O primei- 
ro elemento e chamado de A{1), o se- 
gundo de A(2), o terceiro de A(3) e as- 
sim por diante. 

O conjunto nao apenas torna o sis- 
tema de armazenagem mais compacio, 
como tambem facilita grandemcnie a 
programagao da entrada, modificaijao 
e listagem dos dados nele contidos. 



COMO DIMENSIONAR UM CONJUNTO 



Antes de utilizar um conjunto em 
BASIC, e necessario declarar ao com- 
putador o tamanho (mimerode elemen- 
tos) que ele o tera. Assim, o computa- 
dor podera reservar espa?o suficiente na 
mem6ria. Isto e feito mediante a decla- 
ra(;ao DIM (de "dimcnsao"), como se 
ve a seguir: 
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Use um A maiusculo para os micros 
da linha ZX-81. 

10 DIM a (4) 

A declara?ao DIM acima in forma ao 
computador que o conjunto A tera qua- 
tro elemenios, ou variaveis. Nos com- 
putadores Apple, TRS-Color e MSX 
eles sao numerados de A(0) a A(3). Nos 
micros da linha Sinclair, que nao acei- 
tam o elemento A{0), eles sao numera- 
dos de A(l) a A(4). 

O niimero de elementos que se vai di- 
mensionar pode ser lao grande quanto 
se queira (milhares, por exemplo), des- 
de que caiba na memoria RAM do com- 
putador, € claro, Na verdade, nao e 
obrigatorio dimensionar o niimero exa- 
to de elementos que se utilizarao: para 
ter a garantia de que o espago sera sufi- 
ciente, reserve um pouco mais. Mas te- 
nha em mente que o espago de memo- 
ria reservado com um DIM nao podera 
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10 DIM A(3) 
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CONJUNTOS DE MQMES 

UTILIZACAO DOS DADOS 



EM UM CONJUNTO 



ANALISE DAS INFORMACOES 



ser ocupado pot outras variavds. Por h- 
so, nio dimensione exageradamentc, ou 
recebera uma mensagem de "estouro de 
memoria" (ou( of memory). 



ATRIBUICAO D£ VALORES 



O passo seguinte consisie em atribuir 
OS valores para cada elemento. Se, por 
exempio, as variaveis representassem as 
locagoes da tela nas quais se imprimiria 
um texto ou um grafico, a proxima li- 
nha seria mais ou menos isto: 

20 LET A(0)-0:LET A(1)-2:LET A( 
2)-10:LET A(3)-20 



20 LET aCl)-0: LET a(2)-2: 
LET d(3)-10: LET a(4-)-20 



L 






20 
30 
40 
SO 



LET 
LET 
LET 

LET 



Ad)' 

A(2)' 
A{3)' 
A(4)' 



'0 
■2 

■10 
■20 



Ate agora, nao houve economia de 
tempo ou de cspa^o na memoria. Ao con- 
trario, teria sido bem mais rapido utilizar 
um simples comando LET. Mas veja em 
seguida o que acontece quando e ncces- 
sario armazenar valores que sao difereii- 
tes, cada vez que se roda o programa: 

[^[i]F^'<iElEi 

10 DIM At3) 



20 PHINT"QUAIS ,SAO OS VAL0HES7' 
30 INPUT A{0) ,A(1) ,A(2) ,A{3) 



10 
20 
a? 
30 



10 
20 




DIM a (4) 
PRINT "Quais 



aao OS valore 



INPUT a(l) ,aC2) ,d(3) ,a(4) 



DIM A (4) 
PRINT "QUAIS 



SAO 



OS UALORirS?' 



it 



I 




i^. 



ev 




-./. 




30 INPUT A{1) 

4 INPUT A (2) 

50 INPUT A (3) 

60 INPUT A(4) 

O computador pedira o valor de ca- 
da variavel, sempre que voce rodar o 
programa. Bastara, entao, digitar urn 
numero (seguido por < ENTER > ou 
< RETURN >) quando o compuiador 
solicitar. 

Assim, na medida em que o programa 
tiver um numero maior de elementos, o 
tempo econoratzado passard a compen- 
sar trabalho inicial. Suponha, por 
exempio, que voce queira entrar uma 
centena de numeros. Um programa bem 
simples sera o suficiente; 
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10 DIM A(99J 
20 FOR N-0 TO 99 
30 INPUT A(N) 
40 NEXT N 



No ZX-81 digite em letras matusculas. 



10 DIM a{100) 
20 FOB n»l TO 100 
30 INPUT aCn) 
40 NEXT n 



CONJUNTO DE NOMES 



O tipo de conjunto descrito ate aqui 
permite apenas o armaienamento de nu- 
meros. Mas tambem e possfvel utilizar 
conjuntos para armazenar cadeias alfa- 
numericas. 

Se voce quiser processar tanto nomes 
quanto numeros, por exempio, precisa- 
ra definjr dois conjuntos separadamen- 
te: um para os nomes e outro para os 



numeros. O dimensionamento do con- 
junto especifico para nomes e assim: 

10 DIM A$(5} 

Nos micros da linha Sinclair {ZX-81 
e Spectrum) e necessario ainda especifi- 
car comprimento mctximo que a cadeia 
alfanumerica podera ter. Assim, se o 
maior nome da lisia tiver dez caracteres, 
OS conjuntos de nomes serao dimensio- 
nados da seguinte maneira: 



No ZX-81 digite em letras maiusculas. 

10 DIM aS(6aO) 

Em cada caso o computador reservou 
espa^o na memoria para seis cadeias al- 
fanumericas (nomes, rdtulos.etc). Pa- 
ra definir o la<;o de entrada desses no- 
mes, digite: 



ZO FOR N-0 TO 5 
30 INPUT AS<N) 
40 NEXT N 



20 FOR n-1 TO 6 
30 INPUT aS tn) 
40 NEXT n 

Rode o programa e entre os noraes 
a medida que forem pedidos na tela, 
seguindo-os por < ENTER > ou < RE- 
TURN > . Se voce quiser verificar, logo 
ap6s digitar cada nome, se o armaxejia- 
memo foi correto, adicione esta linha ao 
programa acima e rode-o novamente: 

35 PBINT A$(N> 



33 PRINT aS(n} 

Nao e dificil digitar seis nomes, mes- 
mo que sejam Jongos. E, ainda que o 
numero de nomes chegue a cem, o tra- 
balho serd rapido. Imagine, por exem- 
pio, que voce esteja realizando uma pes- 
quisa sobre o campeonato de Fbrmula 
I e deseja armazenar os nomes das cur- 
vas e o numero de batidas que ocorre- 
ram em cada uma delas durante uma 



temporada de corridas, Nao sera impro- 
vavel que precise entrar algumas deze- 
nas de curvas, ou ate mais, dependen- 
do do caso. Mas o principio e o mesmo 
que o ulilizado no programa a seguir, 
com apenas seis nomes. Este programa 
faz com que o computador leia a serie 
de nomes de curvas do autodromo de 
Jacarepagu^, armazenados em declara- 
V'oes DATA (os micros da linha ZX-81 
nao dispoem desse recurso): 

10 DIM A3(5} 

20 FOR N-0 TO 5 

30 READ A$(N} 

40 NEXT N 

50 DATA NORTE, NONATO, PACE 

60 DATA UM.VITORIA.LAGOA 



10 DIM a$(6,ll] 

20 FOR n-l TO 6 

3 READ aS(n) 

40 NEXT n 

50 DATA"NOftTE', "NONATO", "PACE" 

60 DATA'UH" , "UITORIA" , "LAGOA" 

Os names sao lidos nas deciara«;6es 
DATA na linha 50 e armazenados em 




um conjunto, na linha 10. Assim, cada 
vez que o programa e rodado, os mes- 
mos nomes entram automaticamente. 
No caso de existirem cem nomes, em vez 
de seis, modifique a linha 10 para DIM 
A$(99) e a linha 20 para FOR N = 
to 99 (para os micros Apple, TRS-80, 
TRS-Color e MSX), ou DIM AS (100, 
1 1) e FOR N = 1 TO lOO (para o Spec- 
trum). Em seguida, voce podera acres- 
centar os 94 nomes restantes as decla- 
rafoes DATA, a partir da linha 50. 

O proximo passo sera a defini?ao do 
conjunto que contera o numero de aci- 
dentes em cada curva. 



^[Srh^'^EiD 



60 DIH A (5) 



70 FOR N-0 TO 5 

80 READ ACN) 

90 NEXT N 

100 DATA 0.2,5,1.3,6 



60 DIM a (6) 

70 FOR n=l TO 6 

BO READ a (n) 

90 NEXT n 

100 DATA 0,2.5,1.3.6 

t possivel ignorax o elemento zero de 
urn conjunto, nos compmadores Apple, 
MSX, TRS-80 e TRS-Color, se for mais 
conveniente. AssLm, no ultimo exempio, 
podemos definir DIM AS (6) e numerar 
OS itens de 1 a 6. Isso signiJ'ica que 
AS(0) fica vazio, pois e mais usual con- 
tar a partir do 1 do que 0. 



UTILIZACAO DOS CONJUNTOS 



Agora cornputador ja "sabe" 
quantos acidentes ocorreram em cada 
curva. Mas como essa informa^ao po- 
de ser maaipulada? 

Provavelmente, voce gostaria que, 
antes de mais nada, o cornputador im- 
primisse uma lista com todas as curvas 
e o numero dos acidentes registrados em 
cada uma — somente para checar se os 
dados foram digitados corretamente. 
Adicione as litihas seguintes ao progra- 
ma e rode-o de novo. 

[^[£^'<iEiEi 

210 FOR N-0 TO 5 
220 PRINT A$iH) ,AtN} 
230 NEXT N 



210 FOR n=l TO 6 
220 PRINT aS(n) ,d(n) 
230 NEXT n 

As linhas 210 e 230 percorrem a lis- 
la, enquanto a linha 220 imprlme os no- 
mes e os numeros armazenados nos con- 
juntos correspondentes. Se algum erro 
de digiiagao foi cometido, voce tera a 
oportunidade de tocaliza-lo. 

Voce pode, tambem, querer analisar 
OS resultados contidos nos conjunios 
Por exempio, para o levantamento d 
corridas, seria interessante obter respo; 
tas para quesioes tais como: "quantas 
colisoes ocorreram ao todo?"; "quais 
sao as curvas mais seguras?". As linhas 
adicionais do programa, destinadas a 
identificar o total de acidentes, sao as 
seguintes: 



Fh^EiD 



300 CLS 

310 LET TL-0 

320 FOR N-0 TO 5 

330 LET TL-TL+A{N) 

340 NEXT N 

350 PRINT -NUMERO TOTAL DE ACID 

ENTES ";TL 

Substitua no programa anterior o co- 
mando CLS por HOME, na linha 300. 



300 CLS 

310 LET total-0 

320 FOR n-1 TO 6 

330 LET total-totdl+a (n) 

34 Q NEXT n 

350 E*RINT "Numero total de aci 

dentes: ";total 



ANALISE DA INFORMACAO 



Imagine o quanto o programa acima 
seria util se existissem cem curvas, em 
\cz de apenas seis. 

E, levando em conta que a informa- 
(jao nao apenas pode ser faciimente ar- 
mazenada em um conjunto, como tam- 
Wm pode ser analisada com a mesma 
facilidade, voce entendera por que os 
conjuntos constituem um instrumento 
lao poderoso — para quaiquer coisa, 
desde orc^amenio domestico ate finangas 
internacionais. 

Digite estas linhas extras para exami- 
nar um exempio de anatise: 

400 FOR N-0 TO 5 

410 IF A(N)>3 THEN PRINT AS (N) , 

A(N) 

420 NEXT N 



400 FOR n-1 TO 6 
410 IF a(n)>3 THEN 

) ,a(n) 
420 NEXT n 



PRINT aS(n 



Esta pane do programa mostra na te- 
la uma lista das curvas nas quais ocor- 
reram mais de tres acidentes. Em nosso 
exempio de seis nomes, elas sao as cur- 
vas PACE e LAGOA. Se voce substituir 
o numero 3 pelo 5, na linha 410, e ro- 
dar o programa, apenas LAGOA sera 
impresso. Para quaiquer numero maJor 
do que 6 — nesse case o maior valor — 
nada sera impresso. 

A informagao armazenada nos con- 
juntos poderia ser, para dar um segun- 
do exempio, uma lista de familias de 
uma cidade, juntamente com estatisli- 
cas como o numero de crianfas, os ren- 
dimentos mensais e o numero de carros. 

Uma vez que esses elementos tenham 
sido entrados, eles poderao ser ciassifi- 
cados em grupos e analisados de imime- 
ras maneiras. Por exempio. suponha 
que queiramos listar os dados de todas 
as familias com sobrenome comegando 
com P. Para ler uma ideia de como isso 
funciona, acrescente estas linhas ao 
programa: 



600 FORN-0TO5 

620 IFLEFT$(A$(N} ,1} 

NTASCN) 

630 NEXT 



'P"THENPRI 



600 FOR n-1 TO 6 

620 IF aS[n,l)-"P" 

a$(n) 

530 NEXT n 



THEN PRINT 




As linhas 600 e 630 definem ura la- 
go, para examinar cada elemento do 
conjunto de nomes. A medida que isso 
ocorre, a linha 620 checa o primeiro ca- 
ractere. Se ele for P. um nome inteiro 
aparecer^. 

Nesse caso, a curva chamada PACE 
serd inipressa, porque e a linica que co- 
me^a com P. No exempio do conjunto 
de famOia, poderiamos escrever uma li- 
nha do programa que listasse todas as 
fami'lias 'SILVA', todas as que tivessem 
mais de um carro, e assim por diante. 
Outra possibilidade e o criizamento de 
informagoes — por exempio, quais as 
pessoas cujos nomes comecam por 'A', 
que moram em determinada rua, no nu- 
mero 21, e cujo cachorro e um fila bra- 
sileiro! 



CODIGODiMAQWNA T 



m ADUCA© MANUAL 
DO ASSEMBLY 



Rapidos e efictentes, os programas 
em codigo de miquina tem, contudo, 
uma desvanlagem: e extremamente di- 
ficil escreve-los e depura-los. Frcqiien- 
temente, de fato, eles parecem apenas 
uma seqiiencia de niimeros sem sentido, 
pots instrufoes, dados e enderevos sao 
todos especificados como niimeros he- 
xadecimais. 

A solugao nao estd em deixar de es- 
crever programas em codigos de maqui- 
na. A maioria deies e escrita inicialmeme 
em linguagem Assembly e depois tradu- 
zida para codigo de maquina. Normal- 
mente, isto e feito por um outro progra- 
ma, chamado Assembler (ou seja, mon- 
tador). Porem, se voce nao dispuser de 
um Assembler — ou se quiser aprofun- 
dar seus conhecimentos — podcra fazer 
essa tradugao manuaimente e digitar os 
codigos hexadecimais resultantes na me- 
moria do computador, entrando o pro- 
grama monitor ou o interpretador BA- 
SIC {comandos PEEK e POKE). 



A LINGUAGEM ASSEMBLY 



Voce tera, assim, que aprender a lin- 
guagem Assembly, que esta longe de ser 
tao dificil quanto os codigos de maqui- 
na. Os mnemonicos, que representam os 
codigos de operacoes da maquina, pra- 
ticamcnte dispensam explicagoes, pois 
sao abreviaturas muito claras dos co- 
mandos correspondentes (mnemonico 
significa que lembra algo). Os dados e 
endere(;os sao lodos numericos. assim 
como OS codigos de miquina. Mas, 
usando codigos alfabeticos para escre- 
ver OS comandos, a seqiiencia pura de 
niimeros sera rompida, e ficara muito 
mass facil para o programador entender 
o programa resultante. 

Ao se programar em linguagem As- 
sembly, portanto, basta consultar em 
uma tabela os codigos mnemonicos re- 
ferentes ao microprocessador utilizado 
pelo seu computador. 

O Sinclair Spectrum, o ZX-81, o 
TRS-80 e o MSX empregam o micro- 
processador Zilog Z-80, enquanto o 
TRS-Color usa o Motorola 6809, e o 
Apple II e o TK-2000 utilizam o 6502. 
O resultado da consulta a tabela e o co- 
digo de opera(;ao numerico correspon- 



dente. Coloque-o no lugar correto, e a 
tradugao estara praticamente t'eita. 

Hd algo mais a ser lembrado. Nos 
computadores das linhas Sinclair, Ap- 
ple II, TRS-80 e MSX, nao se pode es- 
quecer de trocar a ordem dos bytes cons- 
tantes de um endere?o de memoria, do 
programa, ou de outros dados que pre- 
cisam ser reprcsentados por dois bytes 
(dezesseis bits). A razao disso e que es- 
sas maquinas armazenam mimeros no 
formato de byte-baixo/byte-alto. O 
TRS-Color utiiiza um formato inverso, 
ou seja, de bvle-alto/byie-baixo, de mo- 
do que voce podera deixar os dados ou 
enderecos de dezesseis bytes em sua or- 
dem normal. 



OS MNEMONICOS 



Os mnemonicos — assim como os co- 
digos de maquina em hexa que eles re- 
presentam — servem para manipular o 
conteiido de um registro, definir o va- 
lor de um sinalizador ou passar de um 
ponto a outro no programa. Estas sao, 
basicamente, as linicas coisas que as ins- 
trucoes em codigo de mdquina sao ca- 
pazes de realis^ar. Um exemplo de mne- 
monico 6 LDA, que .significa LoaD Ac- 
cumulator (carregar o acumulador). 



Sequisermos utilizar esse recurso, de- 
veremo.s comegar por aprender a tradu- 
zir OS mnemonicos da linguagem As- 
sembly para c6digos hexadecimais. 



ENOERECAMENTO 



Contudo, traduzir programas em lin- 
guagem Assembly para codigo de ma- 
quina nao e tao facil quanto parece. 
Mesmo uma instrucao simpies como 
LDA pode ser traduzida para cinco a 
quiiize codigos de opera^joes diferentes, 
dependendo da maquina. 

Os diversos codigos dc operacoes de- 
pendem do lipo dc endere^amento que 
esta sendo uiibzado, ou seja, das formas 
de acesso a memoria RAM que sao uti- 
lizadas peto microprocessador. 

Veremos a seguir como realizar a tra- 
ducao correta de um programa em lin- 
guagem Assembly para os varies tipos 
de computador. Na proxima licao, 
aprenderemos a montar rotinas muito 
liieis em linguagem Assembly. 




c 



r 



H 



^Dl 



O tipo mais simples de enderecamen- 
to no ZX-8 1 eochamado enderet^amen- 
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Montar programas em codigo de mSquina 
pode ser urn risco para seu equilibrio 
mental! Uma alternativa mais saudavel 
^ escreve-los em Assembly e depots 
traduzi-los para hexadecimal. 



LI NGUAGEM ASSEMBLY 
CODIGOS MNEMONICOS 



COMO CONVERTER OS CODIGOS 



ENDERECAMENTO 



DESVIOS E USO DE ROTULOS 



m imediaio, no qual um valor numeri- 
co e usado como argumento do codigo 
de opera^ao: 

LD A,4 

significa: "carregar (LOAD) o acumu- 
lador (A) com o niimero 4"; essa ins- 
lru<;ao e traduzida para o codigo 3EW4 
em liiiguagem de maquina. 

J a no endere^^amento direro e forne- 
cido um enderego onde o dado pode ser 
encontrado, ao inves do proprio dado. 
Por exemplo: 

LD A,(0E2D) 

significa; "carregar o conteudo da lo- 
cacao 0E2D no regislro A", Isto se ira- 
duz para 3A ZD OE (observe que os dois 
bytes correspondenies ao enderego t'o- 
ram irocados). 

O endere(;amenio direto tambem tun- 
ciona de modo inversio: 

LD (ttE2D).A 

significa: "carregar o conteudo do re- 
gislro A na locav'ao de memoria 
0E2D". Islo etraduzido para 32 2D OE 
(novamente os dois bytes foram inter- 
cambiados). Um terceiro (ipo e o eride- 



re^amenlo indireto. Este diz a maquina 
onde encontrar o enderego do dado ne- 
cessario. Por exemplo, a insiru?ao: 

LD A. (HL) 

significa: "carregar o registro A com o 
dado pertencente ao endereco contido 
no par de registros HL". 

Em ouiras palavras, o microproces- 
sador examina o registro HL e usa esse 
mimero como o endere^o da locacao de 
memoria onde esta o byte a ser carrega- 
do no acumulador. 

Esse comando funciona tambem na 
direcao contraria: 

LD (HL),A 

significa: "carregar o conteudo do re- 
gistro A na iocacao de memdria cujo en- 
dereco se encontra no par de registros 
HL". 

Existe um tipo especial de endere^a- 
mento indireto que e chamado de eiide- 
re^ainento indexado. Aqiii, um dos dois 
registros de indexafao — IX e lY — e 
o proprio enderego a ser utilizado sao 
fornecidos por um valor de deslocamen- 
lo, o qua! e acrescentado aos conteiidos 
dos registros IX ou iV. 

Uma instruv'ao tipica poderia ser: 



LO A, (IX + 2F) 



de 




Observe que o deslocamento e 
apenas um byte, 

Os dados tambem podem ser trans- 
feridos de um registro para outro. Isso 
e chamado de enderet;amentu de regis- 
tro a registro, cuja instru(;ao correspon- 
dente e escrita assim: 

LD D,B 

que significa: "carregar o conteudo do 
registro B no registro D". 

O endere^amento relativo e emprega- 
do apenas com comando de desvio. Ele 
diz ao computador quanios bytes este 
deve saltar para a f rente ou para tras. 
Por exemplo: 

JRNZ (IFC 

O mnemonico JRNZ (Jump Relati- 
ve on Non-Zero) significa: "saltar FC 
bytes em relacao a posifao atual, se o 
resultado da liltima opera^ao efetuada 
for diferente de zero", ou seja, se o si- 
nalizador de zero no registro de sinali- 
zadores (flag register) nao for iguaJ a ! , 
O FC diz para onde saltar. 

FC e - 4 em complemento de dois. 
Assim, se o smalizador de zero nao es- 
tiver ligado, o microprocessador salia 
quatro bytes para tras no programa, 
contados a partir do final da instrucao 
JRNZ OFC, e esta e traduzida para 20 
FC em codigo de maquina. Assim, o mi- 
croprocessador salta de fato para a ins- 
trugao que apareceu dois bytes antes 
dela, 

Na realidade, raramente o endereca- 
mento relativo c utilizado cm linguagcm 
Assembly. Normalmente os saltos sao 
indicados por rotulos (labels). Esias sao 
palavras inventadas pclo programador, 
que cumprem a fuiKjao de marcadores 
— tal como INICIO — destinados a as- 
sinalar o comcco de determinadas por- 
(;6es de um programa. 

Esse marcador aparece na frente da 
instrupao para onde sera realizado o sal- 
to, ou ainda, logo apos a instrucao de 
salto. Por exemplo, a linha inicial po- 
deria ser: 



INICIO LD A,ft7 




e em algum outro ponto do programa 
apareceria a !nstru<;ao de salto: 

DJNZ INICIO 

O DJNZ {Decrement and Jump on 
Non-Zero) significa: "reduzir de I o va- 
lor do registro B e saUar para a instru- 
Cao logo a seguir, onde o r6tulo INICIO 
estiver colocado, no case de o sinaliza- 
dor de zero nao estar ligado". Ao tra- 
duzir manualmente para c6digo de ma- 
quina, voce precisara elaborar os saltos 
relalivos per sua propria conta. 



[£[^\ 



A forma mais simples de endere^a- 
mento no microprocessador 6502 ^ o en- 
derefamenlo impUcito. Na verdade, e!e 
nao e propriamente um endere<;amento. 
Per exemplo: 

CLC 

significa: "limpar o sinalizador de trans- 
porte {Clear Carry FlagV . Nao e neces- 
sario nenhum tipo de enderefo como ar- 
gumento. A a^ao e executada no sinali- 
zador de transporte, cujo endereijo esta 
implicito na instni^ao. 

No endere^amento imediato o dado 
segue diretamente a instru^ao. Por 
exemplo: 

LDA #&04 

Essa opera^ao carrega o acumulador 
com o numero 4. O comando LDA e 
traduzjdo, na tabela de cddigos de ope- 
ra96es do 6502, para A9 quando esta 
modalidade de enderegamento e utiliza- 
da. Assim, a instrugao completa passa 
a ser A904. 

ii. no enderegamet^io absolute, o en- 
dere<;o complete de uraa loca^ao de me- 
m6ria segue o mnemonico. For 
exemplo: 

LDA & 1122 



j4 significa: "carregar o acumulador com 
o dado armazenado na locacao de me- 



m6ria 1122". Essa forma tamb^m e co- 
nhecida como enderegamento direto. 

A tradugao para o LDA com ende- 
re^amento absotuto e o cOdigo hexade- 
cimal AD. No exemplo acima, a instru- 
«;ao completa e iraduzida para AD 2211. 
Observe que essa opera?ao tern tres 
bytes e que os dois bytes do cndereijo sao 
trocados de ordem, quando se tradu?, da 
linguagem Assembly para o Apple, 

Na pagina — isto e, de 0000 a OOFF 
— nao i precise especificar o priitieiro 
byte de enderego. mas deve-se utiiizar 
um codigo de opera(;ao especial de pa- 
gina (chamado de codigo de operatpao 
de enderego curto), o qua! diz ao com- 
putador para olhar para um endcre^o de 
um byte. 

O c6digo de operagao para LDA na 
modalidade de enderegamento de pagi- 
na e A5 . Assim, uma instrugao como: 

LDA &7F 

sera traduzida para AS7F. 

Com o endere?o absoluto e o ende- 
re!?o de pagina 0, e possivel utiiizar o en- 
dere^amento indexado, no qual o con- 
teudo de um dos registros de indexapao 
-X e Y- e acrescentado ao endercijo 
dado com a instrugao, para fornecer um 
segundo enderego que seri utilizado. 
Por exemplo: 

LDA &1122,X 

Suponha que o contetido de registro X 
seja 33. Acrescentando-se 33 a 1122, 
obt^m-se 1155; o acumulador 6, entao. 
carregado com o dado que se encontra 
na locagao de memdria 1 155. 

Am bos OS registros X e Y podem ser 
empregados para indexar tanto o ende- 
regamento absoluto quanto c de pagi- 
na 0. 

Mas note que, se a soma do conteti- 
do do registro X com o enderefo da pa- 
gina for maior do que FF e, em virtu- 
de disso, cair na pagina 1, o byte mais 
significativo sera ignorado. No endere- 
famento de pigina zero, indexado ou 
qualquer outro, o enderepo utilizado 
sempre estara na pagina 0. 

Ao usar endere<;amento indexado 



deve-se consultar o c6digo mnemonico 
em Assembly, correspondente a pagina 
OX, pagina OY, absoluto X ou absoluto 
Y. 

Tambem e pos.sivel enderepar indire- 
tamente uma loca^ao de memoria, 
ulilizando-sc o endere^amento indireto. 
Nesta forma, o codigo dc opera(;ao e se- 
guido por um enderevo entre parentcses. 
Isso significa que o microprocessador 
encontrari nesta locagao um segundo 
enderefO, o qual sera empregado para 
acessar o dado. Por exemplo: 

JMP (&1530) 

significa: salte para o enderego dado na 
locagao de memoria 1530. Mas como 
qualquer locagao de memoria pode re- 
ter apenas um byte, e como sao neces- 
saries dois bytes para compor um ende- 
rego, o microprocessador olha para 1 530 
e 1531. A primeira locagao contem o 
byte menos significativo, e a segunda, 
byte mais significativo. de acordo com 
a convengao utilizada para esse micro- 
processador, Assim, se a locagao de me- 
moria 1530 contem 2F, e a locat'ao de 
memoria 1531 contem 13, o micropro- 
cessador saltard para a loca?ao de me- 
moria 132F, 

Existem tambem duas maneiras dc 
indexar enderetjos indiretos. Com o re- 
gistro X voce podera acrescentar um 
deslocamento ao primeiro enderego (o 
enderego fornecido na instrupao). O 
procedimento e chamado de enderefa- 
mento indireto pr4-indexado. Alterna- 
tivamente, voce podera acrescentar um 
deslocamento do registro Y para o se- 
gundo enderego (o enderego nas loca- 
^oes de memoria fornecido na instrugao 
original). Isso e chamado de enderega- 
rnenio indireto pos-indexado. 

Esta e a aparencia de instrugoes des- 
te tipo, em linguagem Assembly: 

LDA (&n22.X) e LDA (&1122),Y 

O primeiro codigo usa o enderega- 
mento pre-indexado, e o segundo, o p6s- 
indexado. Para se consultar os codigos 
hexadecimais correspondentes, deve-se 
procurar o LDA sob (indireto, X) e (in- 
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cUreto),Y. Isso fomecera Al e Bl respec- 
tivamente. Assim, as duas instruijoes 
acima seriam traduzidas para Al 2211 
eBl 22 11. 

As instrui;6es de desvio sao saltos 
condicionais. Por exemplo: 

BEQ 

significa: desviar se for igual a (Branch 
if EQuaJ) — isto e. se o sinalizador ze- 
ro estiver igual a I . As instrut;6es de des- 
vio podem utilizar endereQamento rela- 
tivo em alguns tipos de Assembler. 

BEQ +&04 

significa: salte quatro bytes para a frente 
a partir do inicio da pr6xima instru(;ao, 
se o sinalizador zero estiver igual a 1 . 
Per meio de rotulos, indica-se ao mi- 
croprocessador o ponio do programa 
para onde o desvio deve ser realizado. 
A primeira insiru^ao a partir deste pon- 
to e simptesmente precedida pelo rotu- 
to. Por exemplo: 

INICIO LDA &04 

ao passo que a instrufao que produz o 
desvio tera: 

BEQ INICIO 

O Assembler se encarregara, entao, de 
calcular o desvio relativo. No entanio, 
se voce esta traduzindo manualmente 
uma listagem em Assembly, a respon- 
sabilidade pelo cilculo sera sua. Codi- 
go de maquina nao emprega rotulos, 
apenas niiraeros. Os microprocessado- 
res 6510 e 6502 comportam ainda mais 
um tipo de endere9amento — o endere- 
^amenta por acumulador — , us ado 
principalmente com instru96es de deslo- 
camento e rotacao de bits. Por exemplo: 

ASL A 

significa: desloque o acumulador de um 
bit (Accumulator Shift Left), E possf- 
vel utilizar esta instrugao, tambem, com 
outras locagoes de memdria, e nao ape- 
nas com o acumulador. Neste caso, bas- 



ta substituir o A, no exemplo acima, pe- 
lo endere(;o de mcmoria cujo conteildo 
voce quer deslocar. Esta locagao pode 
ser indexada com o registro X, apenas. 
A instrugao tern o'seguinte efeito: o 
bit menos significante da memoria e ze- 
rado, o bit mais significante e coloeado 
no registro indicador de transporte 
{carry flag), e os bits restantes sao des- 
locados uma posi<;ao a esquerda. Da 
mesma forma, existe o ASR (Accumu- 
lator Shift Right), para efctuar desloca- 
menlos de bits a direiia. 



O microprocessador Motorola 6809, 
utilizado nos computadores compativeis 
com a linha TRS-Color, tem um tipo de 
endereif-amento implicito, tambem cha- 
mado enderegamento de regisiros. 

Esta expressao refere-se k& instru^oes 
da linguagem Assembler que nao preci- 
sam ser acompanhadas de um endere?o 
pois operam em um registro interno do 
microprocessador, que e estipulado pe- 
la propria instrugao. Por exemplo: 

DECA 

significa: diminua de 1 o registro A (De- 
crement Accumulator), O codigo hexa- 
decimal correspondente, que pode ser 
encontrado na trbela de conversao do 
manual do microprocessador, e 4A. 

No enderetjamento imediato, o dado 
a ser utilizado e o proprio argumento da 
in5trij(;ao. For exemplo: 

ADDB #$7 

significa: adicione 7 ao registro B. O codi- 
go para ADD em modo imediato i CBv em 
hexadecimaJ, de modo que a instrugao 
completa acima e tradu^ida para CB 07. 
Existe ainda outra forma de endere- 
eamento imediato, na qual se usa um se- 
gundo byte, chamado pos-byte. Neste 
caso, a instruijao assume a forma; 

TFR A,B 

que significa: transferir o conteudo do 



registro A para o registro B. 

Para traduzir essa instru^ao para co- 
digo de maquina, deve-se consultar o co- 
digo TFR na se^ao de enderetjamento 
imediato da tabela. Isto nos da o codi- 
go IF, A seguir, o p6s-byte e avaliado 
um nibble (um grupo de quatro bits) de 
cad a vez. 

Em geral, para usar esta instrufao 
com o 6809. alribui-se um digito hexa- 
decimal para cada registro. Dois desses 
digitos sao unidos para formar o pos- 
byte. Por exemplo, o registro A recebe 
o valor de 8, e registro B, o valor de 
9. De modo que: 

TFR A,B 

e traduzido para IF 89. Se, ao contra- 
rio, a instrupao tivesse sido: 

TFR B,A 

a )nstru(;ao correspondente em codigo 
de maquina seria IF 98. 

No endereijamento absolute, ou ain- 
pliado, a instru^ao e acompanhada do 
endere<;o de dezesseis bits da loca^ao de 
memoria a ser utilizada. Por exemplo: 

STA $7530 



significa: armazene o conteudo do acu- 
mulador da memdria &H7530 (Store 
Accumulator). A tradusjao, no caso, se- 
ria B7 75 30 (note que os dots ultimos 
bytes, correspondentes ao endere(;o, sao 
mantidos na ordem direta, como e obri- 
gatdrio para a maior parte dos outros 
tipos de microcomputador). 

A instrugao e um pouco complicada, 
pois envolve tres bytes. Usando-se en- 
dere^amento direto, porem, podemos 
reduzi-la para uma instrugao de dois 
bytes. O microprocessador 6809 tem um 
registro de pagina direta, que arraaze- 
na o byte mais significativo de um en- 
derego. Assim, todas as memorias na- 
quela pagina podem ser enderegadas 
usando-se apenas um byte, no caso o 
menos significante. E^ 

Esse recurso funciona da seguinte t 



maneira: o registro de p^gina direta e 
carregado usando-se a instru<;ao TFR, 
meiicionada acima, ou a instrufao EXG 
(KXchanGe), que troca os conteudos de 
dois regisiros cnire si. 

EXG A, DP 

Na instrucao acima. pede-separa in- 
tercambiar os registros A e pagina dire- 
ta (Direct Page). A instrufao nao ape- 
tias define a pagina direta com o que foi 
carregado em A com urn comando LDA 
previo; ela lambem armazena o nume- 
ro de pagina direta previamente retido 
por DP. de volta para o registro A. Da- 
li esse nitmero podc ser jogado paia uma 
locaijao de memoria qualquer, usando 
a instruQao STA. 

O byte mais significante da pagina di- 
reta — 75, neste exemplo — esta agora 
definido, e o b\ie menos significante po- 
de ser dado com a instrugao. Neste ca- 
so, para fazer a traduijao manual, e ne- 
cessario consultar a instrut^ao STA na 
tabela de codigos, sob a sei;ao de ende- 
recamento indireto. O resultado e 97, 
em hexadecimal. Assim, a instrutjao 
completa do exemplo sera 9730. 

Obviamente, nao vale a pena repetir 
todo este procedimento cada vez que se 
qiiiser armazenar dados em uma loca- 
cao de memoria. Definir enderego- 
base da pagina direta toma muito mais 
tempo do que o economizado com a re- 
ducao da instru<;ao de tres bytes para 
dois bytes. Mas muitas vezes e suficien- 
te definir a pagina direta no comedo de 
um segmento de programa e, dai em 
dianie, armazenar todos os dados na 
mesma pagina. 

Ertdereijamento indireto ocorre quan- 
do o microprocessador precisa cxaminar 
uma memoria indicada par um endere- 
go que, por sua vez, contem um segun- 
do enderecc no qual estao os dados que 
serao carregados no acumulador. A for- 
ma de notflfjao utilizada e entre col- 
chetes: 

LDA ISFKEEl 

Por meio desta instrugao, pede-se ao 
microcomputador para recuperar um 
endereco, nas locacoes de memoria 
FEEE e FFFF (o enderego compteto, 
com dois bytes). 

Prosseguindo. a instrugao carrega no 
acumulador A o conteiido na locagao 
com este segundo cndere^o. 

O enderepo indireto tambem podc ser 
realizado com os registros U, S, X e Y, 
bem como com o corl,ador de programa. 

Em todos esses casos de endere^^a- 

Imento indireto, e necess^rio consultar o 
mnemonico da instru(;ao na tabela, sob 



a sefao de enderecamento indexado, pa- 
ra se obter o codigo correspondente. Em 
seguida, deve-se consultar o pos-byte. 

No exemplo dado acima, consulta-se 
LDA sob a segao de enderegamento in- 
dexado, e se obtem A6. Depois, con- 
sulta-se o enderego [mmmm], que indi- 
ca um enderet^o geral de dezesseis bytes, 
na tabela de pos-bytes. Isio da 9 F (ou 
BF, ou DF ou FF, pois os pos-bytes 
sao repetidos para eada registro: como 
Immmm] e independente de qualquer re- 
gistro, aparece quatro vez.es), 

Assim a instru^ao completa; 

LDA |$FrFEl 

e traduzida para A6 9F FF FE. 

Usando os registros t, S, X e Y. bem 
como o contador de programa, pode-se 
estipular tanto o etiderefamento nao-in- 
direto (sem colclietes), quanto o ende- 
revamento direto (com colchetes), usan- 
do-se deslocamentos {offsets). Os des- 
locamentos podem ser constantes — de- 
cimals, hexadecimais de oito ou dezes- 
seis bits — ou conteudo de outros re- 
gistros. Este conteudo e somado ou sub- 
traido do conleudo-base de um dos cin- 
co enderegos indexaveis. 

LDA ,X 

significa; carregue o registro acumula- 
dor com dados na locatao de memoria, 
cujo enderefo est^ armazenado no re- 
gistro X. Nesse exemplo, o deslocamen- 
to e zero. Ouiros exemplos: 

LDA I .X 

significa; carregar o acumulador com o 
endereco em X, somado de 1. 

LDA - 16, Y 

significa: carregar o acumulador com o 
enderego em Y, diminuido de 16, 

LDA ($10, X) 

e a versao para enderc(;amento indexa- 
do. Ete carrega o acumulador com o 
conteudo da locafao de memoria cujo 
endereco esta indicado em X, e que e 
adicionado de 10 (em hexadecimai). 

Em todos estes casos, o c6digo ope- 
racional para LDA pode ser encontra- 
do na segao de enderetamento indexa- 
do, e o pos-byte apropriado precisa ser 
adicionado, a partir do que for encon- 
trado na tabela de pris-bytes. Desloca- 
mentos de oito bits e enderegos de de- 
zesseis bits seguem-se a isto. 

Desvios em linguagem Assembler sao 
programados por meio das instrugoes 



JMP e iSR. Estes desvios podem ser de- 
finidos em termos de enderegos finais de 
pagina direta, ampliados, ou, ainda, in- 
dexados, de modo que os codigos de 
maquina equivalentes se alteram de 
acordo. Desvios condicionais, ei^tretan- 
10, utilizam enderegamento relativo. 

Com enderegamento relativo, 
inf orma-se a UCP quantos bytes o pro- 
grama deve pular para a frente ou para 
tras em relagao a inslrugao de desvio. 

Exislem dois tipos de desvios: um 
desvio ordinario de oito bits, que pula 
para ate 127 bytes para a frente ou 128 
byies para tras, e um desvio longo de de- 
zesseis bits, que pode abranger 32 767 
bytes para tras. 

BEQ SFA 

pulara seis bytes para tris, a panir do 
inicio da instrugao seguinle, se o indi- 
cador de zero [zero flag} esiiver ligado. 
FA e - 6 em complemenio de dois. .Al- 
ternativamente, temos o desvio longo: 

LBEQ SOAOO 

que saltar^ 2560 bytes para a frenie, se 
o indieador de zero estiver ligado. 

Os desvios sempre uiilizani enderega- 
mento relativo — nao ha outro tipo de 
enderegamento disponivel parades. Po- 
rem, como muitas vezes c irabalhoso 
calcular o tamanho de um salto, 
procura-se utilizar rotutos. 

Os rotulos sao palavras (simbolicas) 
criadas pelo programador, que indicam 
ao microprocessador qual e o ponto do 
programa para onde o desvio deve ser 
realizado e. a partir deste ponlo, a pri- 
meira instrugao e simplesmente precedi- 
da pelo rotulo. Por exemplo; 

LNICIO DECA 

ao passo que a instrugao que produz o 
desvio tera: 

BEQ INICIO 

O Assembler se encarregara, entao, 
de calcular o desvio relative, que pode- 
ra .ler para a frente, se o rot u to estiver 
depois da instrugao de desvio, ou para 
tras, se estiver antes dela. Entretanto, se 
voce esta traduzindo manualmente uma 
lislagem em Asstembly, a responsabili- 
dade pelo cdlcuio sera sua, ja que codi- 
go de maquina nao emprega rotulos, 
apenas niimeros. Para fazer o calculo, 
conta-se o niimero de bytes a partir do 
final da instrugao de desvio ate ocome- 
go da instrugao para a qual se deseja 
saltar. Lembre-se que, para um saJ- 
to longo, isto tomara dois bytes. 
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Apple 11 + 
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MIcroengenhol 


LZ 
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Magnex 
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Apple 11 + 
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Su porta 


Venus II 
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MX-2D01 
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Apple 11 + 
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Sinclair Spectrum 


Sinctaif Spectrum 


Timex 


Timex 2000 
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TRS-Color 


Sinclair ZX-81 
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Apple II Plus 
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Apple 11 + 
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Apple Senior 
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Apple 11 + 
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Brasii 
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MC-400 


Brasll 


Apple 11 + 


Sinclair ZX-81 
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Polymax 
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Brasll 


Apple 11+ ^ 


SinclalrZX-ei 


Prologica 


CP-200 


Polymax 


Poly Plus 


Brasll 


Apple 11 + 


Sinclair ZX-81 
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Prologica 


CP-200 


Brasii 


Sinclair ZX-SI 


Sinclair ZX-81 


Timex 


Timex 1000 


Prologica 


CP-300 


Brasll 


TRS-aO Mod.lli 


Sinclair ZX81 


Timex 


Timex 1500 


Prologica 


CP-400 


Brasii 


TRS-Color 


TRS-80 IVIod. 1 


Dismac 


D-8000 


Prologica 


CP-500 


Brasii 


TRS-aoMod.lM 


TRS-80 Mod. 1 


Dismac 


D-8001/2 
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Brasii 


Sinclair ZX-81 
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Sltarp 
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MSX 
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Spectrum 


Microengenho 
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Apple 11 + 


TRS-80 Mod.lll 


Digitus 


DGT-100 


Spectrum 
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11 Brasii 


Apple Me 
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Digitus 
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Suporte 


Venus 11 


Brasll 


Apple 11 + 


TRS-80 Mod.lH 


Prologica 


CP-300 
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SICI 


Brasii 


Apple 11 + 


TRS 80 Mod.lH 


Prologica 


CP-500 


Sysdata 


Sysdata III 


Brasll 


TRS-BO Mod.lli 


TRS 80 Mod.lH 


Sysdata 


Sy$daialll 


Sysdata 


Sysdata IV 


Brasii 


TRS-80 Mod.lV 


TFtS-80 Mod.lli 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasii 


TRS-BO Mod.lll 


TflS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 


TRS-80 Mod.lV 


Sysdata 


Sysdata IV 


Timex 


Timex 1600 


USA 


Sinclair ZX-81 


TflS-Color 


Codlmex 


CS-6508 


Timex 


Timex 2000 


USA 


Sinclair Spectrum 


TRS-Color 


Dynacom 


MX-1600 


Unitron 


APH 


Brasii 


Apple 11 + 


TRS-Color 


LZ 


Color 64 


Victor do Brasll 


Elppa 11 Plus 


Brasll 


Apple 11 + 


TRS-Color 


Microdigital 


TKS-800 


Victor do Brasii 


Elppa Jr. 


Brasll 


Apple 11 + 


TRS-Color 

w 


Prologica 

■ m 


CP-400 


Video Genie 


Video Genie 1 


USA 


TRS-ao Mod. 1 
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PROGRAMACAO DE JOGOS 

Crie suas proprias aventuras e descubra inumeras dicas 
que poderao torna-las mais envolventes e excitantes. 

C6DIG0 DE MAQUINA 

Se voce deseja maior intimidade com o computador, 
exercite-se na tradupao do Assembly para c6digo de m^quina. 

PROGRAMApAO BASIC 

Aprenda a utilizar conjuntos bidimensionais para uma eftciente 
armazenagem de dados inter-relacionados 
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